foreach $jrow (sort $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} } keys %$ref_spv) { push(@$ref_new_order, $jrow); }