foreach $jrow (eval "sort { $sort_str } keys %\$ref_spv") {...}