my @arr3 = @foo{@arr1}; #### my %foo = map{/,/;$`,$'} @arr2;