Help for this page

Select Code to Download

Select or download this

@array = qw(put these in a different order);
@order = qw(1 3 5 4 2 0);
...
   #23456789012345678901234
   map${@_[0]}[$_],@{$_[1]}
}

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