Select Code to Download

$ perl -e '
    use Data::Dump;
...
'
{ cat => "Tibbles", dog => "Rover", kitten => "Tibbles" }
{ Rover => "dog", Tibbles => "kitten" }

#!/usr/bin/env perl

...

    return $result;
}

*** Check initial data
{ fish => "cat", mammal => "cat", mollusc => "snail" }
...
["cat", "fish", "cat", "mammal"]
_pairmap
["cat", "fish", "cat", "mammal"]

*** Benchmark
             Rate pairmap     map     for
...
pairmap  781507/s      --    -34%    -43%
map     1178381/s     51%      --    -14%
for     1364313/s     75%     16%      --