This is a perlfaq:

perldoc -q round
[download]

POSIX::ceil:

use warnings; 
use strict; 
use POSIX;

for (3.3, 3.6, 3003.3) {
    print $_, "\t", ceil($_), "\n";
}

__END__

3.3    4
3.6    4
3003.3    3004
[download]