sub round {
    my ($num, $place) = @_;
    my $r = $num / $place;

    return $r - int($r) < .5 ?
        int($r) * $place :
        (int($r) + 1) * $place;
}