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";
        }
    }
}