my $n = 3.0; my $ceiling = int($n); $ceiling += 1 if $ceiling != $n;