@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";