my %index;
@index{@list1} = @list2;