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

##</code><code>##

my $sorter = Sort::Key::multikeysorter(sub { @{$ref_spv->{$_}}{qw(Symbol Sel120 Sel119)} },
                                       qw(String String -Int))

foreach $jrow ($sorter->(keys %$ref_spv)) { ... }