#! perl -slw
use strict;
use List::Util qw[ shuffle ];

my @cols = shuffle qw/0 1 2 3 4 5 6 7 8 9 10 11/;
my @nums = map { [qw/01 02 03 04 05 06 07 08 09 10 11 12/], } 1 .. 12;
my @swapped = map{
	[ @{ $_ }[ @cols[ 6 .. 11 ] ], @{ $_ }[ @cols[ 0 ..  5 ] ] ]
} @nums;

print "@$_" for @swapped;

__END__
P:\test>467617
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09

##</code><code>##

#! perl -slw
use strict;
use List::Util qw[ shuffle ];

my @cols = shuffle 0 .. 11;
my @nums = map { [ '01' .. '12' ] } 1 .. 12;
my @swapped = map{
	[ @{ $_ }[ @cols[ 6 .. 11 ] ], @{ $_ }[ @cols[ 0 .. 5 ] ] ]
} @nums;

print "@$_" for @swapped;

__END__
P:\test>467617
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09
07 04 08 05 03 02 12 10 01 11 06 09

##</code><code>##

#! perl -slw
use strict;
use List::Util qw[ shuffle ];

my @cols =  shuffle qw/0 1 2 3 4 5 6 7 8 9 10 11/;

my @nums = map { [qw/01 02 03 04 05 06 07 08 09 10 11 12/], } 1 .. 12;

my @swapped = map{ [ @{ $_ }[ @cols ] ] } @nums;

print "@$_" for @swapped;

__END__
P:\test>467617
12 05 06 04 02 08 10 11 03 01 07 09
12 05 06 04 02 08 10 11 03 01 07 09
12 05 06 04 02 08 10 11 03 01 07 09
12 05 06 04 02 08 10 11 03 01 07 09
12 05 06 04 02 08 10 11 03 01 07 09
12 05 06 04 02 08 10 11 03 01 07 09
12 05 06 04 02 08 10 11 03 01 07 09
12 05 06 04 02 08 10 11 03 01 07 09
12 05 06 04 02 08 10 11 03 01 07 09
12 05 06 04 02 08 10 11 03 01 07 09
12 05 06 04 02 08 10 11 03 01 07 09
12 05 06 04 02 08 10 11 03 01 07 09