use strict;
use warnings;
use List::MoreUtils qw(pairwise);
@weights = (1 .. 5);
@digits = (11 .. 15);
@sum = pairwise { $a * $b } @weights, @digits;   # returns 12, 14, 16, 18, 20
print "@sum";