Select Code to Download

BEST           SELECTED BEST
best->Key1     kept_best->Key1
...
Key2->el1      Key2->el1
Key2->el2      Key2->el2
...

print "BEST        SELECTED BEST\n";
foreach my $value (sort keys %{$best}){
...
        }
    }
}