sub convert_to_float { my ( $number ) = @_; return $number . ','; }