Select Code to Download

foreach $jrow (sort
    $ref_spv->{$a}->{Symbol} <=> $ref_spv->{$b}->{Symbol}
...
        } keys %$ref_spv) {
    push(@$ref_new_order, $jrow);
}

    $ref_spv->{$a}->{Symbol} <=> $ref_spv->{$b}->{Symbol}
...
    $ref_spv->{$b}->{Sel120} <=> $ref_spv->{$a}->{Sel120}
             ||
    $ref_spv->{$a}->{Sel119} cmp $ref_spv->{$b}->{Sel119}

foreach $jrow (sort {
        eval($sort_str);
    } keys %$ref_spv) {
(@$ref_new_order

$t->tagConfigure($tag_name, -state => 'disabled', -bg => 'black');

$t->tagCell($tag_name, $cell_index);

$t->tagConfigure($tag_name,  eval($tag_string));