Select Code to Download

use strict;
use warnings;
...
        for keys %hash_name;

print sort keys %keys_of_max;

Useless use of logical xor in void context at perlmonks_Max_Value.pl l
+ine 26.
cd