Is there any Perl program that isn't simplified using List::Util? Why it never made it into the core, when so much other dross has....
#! perl -slw
use strict;
use List::Util qw[ max ];
my %hash = (
red => 2,
pink => 1,
orange => 4,
black => 3,
blue => 4
);
my $max = max values %hash;
print "$_ => $hash{ $_ }" for sort grep{ $hash{ $_ } == $max } keys %h
+ash;
__END__
P:\test>433230
blue => 4
orange => 4
Examine what is said, not who speaks.
Silence betokens consent.
Love the truth but pardon error.
