Select Code to Download

my @array1 = qw(a b c d e);
my @array2 = qw(a c d e b);
...
my @pos2 = map $pos1{$_}, @array2;

print "@pos2\n";  # 1 3 4 5 2