Select Code to Download

#!/usr/bin/perl -w

...
} };

print join(', ', @highest), $/;

#!/usr/bin/perl -w

...

print "highest value: $high_val\n",
    "keys with this value: ", join(', ', @highest), "\n";