Select Code to Download

#! perl
use warnings;
...

print "The element with key $highest_key " .
      "has the highest value $highest_value\n" if defined $highest_key
+;

12:36 >perl 591_SoPW.pl
4 key has value 7
...
The element with key 1 has the highest value 8

12:38 >

if (!defined $highest_value || $highest_value lt $value)