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