http://qs321.pair.com?node_id=564363

willyyam has asked for the wisdom of the Perl Monks concerning the following question:

Is there an easy|elegant|straightforward way to reorder an array? I need to take a each array of an AoA and reorder it to a specific order. An example:

@orig_array = qw(0 1 1 0 1 0 0 0 1 1 1 0 0 0 0); @new_index_order = qw(8 3 4 9 11 6 7 0 14 10 1 12 2 5 13);
What I want is to put @orig_array into a new array, based on the index order from @new_index_order.

All I can think of is to create a new array with placeholder values, and run through @new_index_order, copying the indexed values from @orig_array left-to-right into the new array, replacing the placeholders. This seems clunky to me, however. Anyone else have a suggestion? Thanks.