my @list1 = ( 'blorke', 'gromble', 'poomba' );
my @list2 = ( 'snork', 'dumble', 'gronke' );
my %index = map { $_ => pop @list2 } (@list1);