Select Code to Download

use List::Util qw/ pairmap /;
sub a_pairmap {
...
    pairmap { $i += $b } @vals;
    return $i;
}