Help for this page
#!/usr/bin/perl ... my $maxref = allmax( map [ $_, $hashName{$_} ], sort keys %hashName ); print "@$maxref\n";
b c 3