But you're wrong. :-)

    my @arr3 = @foo{@arr1};
[download]

And if you don't mind very short but somewhat dirty, you can do this:

    my %foo = map{/,/;$`,$'} @arr2;
[download]

jdporter
The 6th Rule of Perl Club is -- There is no Rule #6.