Help for this page

Select Code to Download

Select or download this

use List::Pairwise 'mapp';

...

__END__
baz foo

Select or download this

my ($key, @too_many) = mapp { $b eq $val ? $a : () } %hash;
! @too_many
    or die 'Too many ...';