Select Code to Download

@keys = pairwise {return "$a $b"} @fname, @lname;
@hash{@keys} = @state;

my $iter = each_array @fname, @lname, @state;
while( ($firstName, $lastName, $state) = $iter->() ) 
{ 
   $hash{"$firstName $lastName"} = $state;
}