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
[download]