- or download this
#! perl
use warnings;
...
print "The element with key $highest_key " .
"has the highest value $highest_value\n" if defined $highest_key
+;
- or download this
12:36 >perl 591_SoPW.pl
4 key has value 7
...
The element with key 1 has the highest value 8
12:38 >
- or download this
if (!defined $highest_value || $highest_value lt $value)