in reply to Scanning a list for indices
Presuming elements of @a1 are unique . . .
my %a1_indexen; @a1_index{ @a1 } = 0..$#a1; my @indexen = map $a1_index{ $_ }, @a2; [download]
The cake is a lie. The cake is a lie. The cake is a lie.