Select Code to Download

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