sub stround { my( $number, $decimals ) = @_; substr( $number + ( '0.' . '0' x $decimals . '5' ), 0, $decimals + length(int($number)) + 1 ); }