sub stround { my( $n, $places ) = @_; my $sign = ($n < 0) ? '-' : ''; my $abs = abs $n; $sign . substr( $abs + ( '0.' . '0' x $places . '5' ), 0, $places + length(int($abs)) + 1 ); }