Help for this page
my %index; @index{@list1} = @list2;
for (my $i = 0; $i <= $#list1; $i++) { push @result, $list1[$i], $list2[$i]; }