@array = qw(put these in a different order);
@order = qw(1 3 5 4 2 0);

print reorder(\@array, \@order);

sub reorder() {
   #23456789012345678901234
   map${@_[0]}[$_],@{$_[1]}
}

##</code><code>##

#!/perl -ln0a
map$F[$_],@F[@F/2..$#F]