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