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


in reply to Creating a hash from arrays

You could also use List::MoreUtils, either:

@keys = pairwise {return "$a $b"} @fname, @lname; @hash{@keys} = @state;
or
my $iter = each_array @fname, @lname, @state; while( ($firstName, $lastName, $state) = $iter->() ) { $hash{"$firstName $lastName"} = $state; }