sub convert_ratio_to_decimal (\$) { ..... };

convert_ratio_to_decimal( $str );