Select Code to Download

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

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

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