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