my $stairs = ; my @stairs = split(/ /, $stairs); my $high = $stairs[0] / $stairs[1]; if($high< int($high)){ my $high_r = int($high) - 1; $high_r = $high_r + 1; print "$high_r\n"; }else{ $high = $high + 1; print int($high)."\n"; }