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

##</code><code>##

my $ceiling = int($n) + ($n != int($n));