use warnings; 
use strict; 
use POSIX qw(ceil);

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

__END__

3.3	4
3.6	4
3003.3	3004