this method is a little faster and shorter, but it dosen't work right when $x is negative:

my $x = 12.3456789;
$x = int($x*100)/100;
[download]