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