Select Code to Download

my $HoH = {
          'pk1' => {
...
                      'score' => 64
                    }
        };

my @best_key = sort { keys %{$HoH{'score'}{$a}} <=> keys %{$HoH{'score
+'}{$b}}  } keys %HoH;