Use the POSIX module:

use POSIX qw(ceil);
print ceil(3.5);   # prints 4
print ceil(4);     # also prints 4
[download]

or, you can use this function:

sub roundup {
    my $n = shift;
    return(($n == int($n)) ? $n : int($n + 1))
}
[download]