Another technique:

sub round_to_n {
    my $val = shift () || 0;
    my $num = shift () || 5;

    $val = sprintf ( "%d", 0.5 + $val / $num );
    my $ret = $num * $val;
    return $ret;
}
[download]