Help for this page

Select Code to Download


  1. or download this
    use List::Pairwise 'mapp';
    
    ...
    
    __END__
    baz foo
    
  2. or download this
    my ($key, @too_many) = mapp { $b eq $val ? $a : () } %hash;
    ! @too_many
        or die 'Too many ...';