sub round 
{
    my( $num, $place )= @_;
    $num = $num/$place;
    my $calc = int( $num + 0.5 * ( $num <=> 0 ) );
    $calc += (0 <=> $num) if( $calc % 2 and 0.5 == abs( int($num) - $num ) );
    return $calc * $place
}