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

##</code><code>##

print "BEST        SELECTED BEST\n";
foreach my $value (sort keys %{$best}){
    my $i = 0;
    foreach my $bind_energy (@{$best->{$value}}){
        printf "%10.5f ", $bind_energy;
        if (defined($kept_best->{$value}->[$i])){
            printf "%10.5f \n", $kept_best->{$value}->[$i];
            $i++;
        }
        else {
            print "\n";
        }
    }
}