my $rounded = int ( $value / ( 10**$round ) + 0.5 ) * ( 10**$round );