http://www.perlmonks.org?node_id=863745


in reply to pairwise() doesn't seem to work...

And get rid of the  Name "main::whatever" used only once ... warnings with a  use vars qw($a $b); (or similar) statement.

>perl -wMstrict -le "use 5.010; use List::MoreUtils qw(pairwise); my @arr1 = (1, 2, 3); my @arr2 = (10, 20, 30); use vars qw($a $b); my %hash = pairwise { ($a, $b) } @arr1, @arr2; use Data::Dumper; say Dumper(\%hash); " $VAR1 = { '1' => 10, '3' => 30, '2' => 20 };