#! 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