>perl -wMstrict -le
"use List::MoreUtils qw(each_array);
 my ($w, $x, $y, $z) = ( 1,  2,  3,  4);
 my @incs            = (10, 20, 30, 40);
 my $ea_inc = each_array @incs;
 $_ += $ea_inc->() for $w, $x, $y, $z;
 print qq{w $w   x $x   y $y   z $z};
"
w 11   x 22   y 33   z 44