http://www.perlmonks.org?node_id=343070


in reply to largest number inside array/hash

my %hash = ( 12 => undef, 18 => undef,  6 => undef,
             22 => undef, 28 => undef, 16 => undef );
printf "Max value is %d.$/", ( sort {$b <=> $a} keys %hash )[0];

[download]

_______________
DamnDirtyApe 
Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
            --Friedrich Nietzsche

In Section Seekers of Perl Wisdom