use strict; use warnings; my @in = (0) x 3; for(0..2){ $in[$_] = ; } my $num = $in[1] < 0 ? 2 : $in[0] == 0 ? 0 : 1; $in[0] = abs($in[0]); $in[1] = abs($in[1]); $num += $in[0]%$in[2] == 0 ? $in[0]/$in[2] : int($in[0]/$in[2])+1; $num += $in[1]%$in[2] == 0 ? $in[1]/$in[2] : int($in[1]/$in[2])+1; print $num;