Help for this page
my $HoH = { 'pk1' => { ... 'score' => 64 } };
my @best_key = sort { keys %{$HoH{'score'}{$a}} <=> keys %{$HoH{'score +'}{$b}} } keys %HoH;