Select Code to Download

use strict;
use warnings;
...
}

printf "Max value is %d, which corresponds to key %s\n", $max_value, $
+max_key;

 1:13 >perl 1994_SoPW.pl
Max value is 3, which corresponds to key c

 1:18 >