It's an ordinary task to round a number to 2 digits after decimal point. But sometimes one needs have a third digit '5'

E.g.
0.0234  => 0.025
0.0482  => 0.05
0.0513  => 0.05

Here is a pretty snippet to make it

sub round_005 {
    return (sprintf '%0.2f', $_[0] * 2) / 2;
}
print "$_ => " . round_005($_) . "\n" for .234, .0482, .0513;
[download]