my $centimeters = ; my @centimeters = split(/ /, $centimeters); my $ans = $centimeters[1] / $centimeters[0]; if($ans> int($ans)){ my $ans_r = int($ans) + 1; print "$ans_r\n"; }else{ print int($ans)."\n"; }