Select Code to Download

foreach my $k1 (keys %bighash) {
  foreach my $k2 (keys %{$bighash{$k1}}) {
    ...
       push(@keys,[$k1, $k2, ...]);

@keys = sort by_key_total @keys;

...
     <=>
  $bighash{$b->[1]}{$b->[2]}{$b->[3]}{$b->[4]}[$b->[5]][$b->[6]]
}