Without using swap, we have a slightly less obfuscated and (uninteresting) way...

@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]}
}
[download]

Uninteresting as it may be, it might make for a decent golf... Can this be done in fewer strokes?

What if the input were two strings on <STDIN>, separated by a line feed? We then might have something like:

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