Select Code to Download

#!/usr/bin/perl
use strict;
...
}

pa @OUT;

for my $i (0 .. $COLS-1) {
  push @OUT, @IN[map {$_*$COLS+$i} 0..($#IN/$COLS)];
}