my @nums = ( 1.2818, 1.1213, 234.33, 32.1323, 55.6274 );

print ceil($_), "\n" for @nums;

sub ceil {
    my $num = shift;
    $num *= 100;
    $num = $num == int( $num ) ? $num : int(++$num);
  return $num/100;
}

__DATA__
1.29
1.13
234.33
32.14
55.63