So (w/ a little help from my friends ;-):

@order = qw(4 2 1 3 0 5);
@before = qw(9 8 7 6 5 11);

       @ordered[@order] =  @before;
       $after = join ', ', @ordered;
print join ", ", @order, " order\n";
print join ", ", @before, " before\n";
print "$after\n";
[download]

gives you the above w/ real numbers, er, integers, not just the string/chars. FWIW
(waiting for dinner roles to bake)

a