I would multiple by 100, then use the POSIX::ceil function.

use POSIX qw(ceil);
my $rounded = ceil($i*100) / 100;
[download]

Tiago