my %a1_indexen;
@a1_index{ @a1 } = 0..$#a1;

my @indexen = map $a1_index{ $_ }, @a2;