@keys = sort by_key_total @keys;

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