http://www.perlmonks.org?node_id=79086
mbond has asked for the wisdom of the Perl Monks concerning the following question:

I have a list, lets call it:

@list = qw(a z b y c x);

and i have another list ... lets call this one:

@list2 = qw(zulu charlie xray yankee bravo alpha);

here's my problem:

I want to sort @list2 based on the order in @list, is there an easy way to do this using the sort function, or do i just have to loop through it like:
foreach $a (@list) { foreach (@list2) { push(@list3,$_) if substr($_,0,1) eq "$a"; } }

thanks,

mbond