To shuffle columns (assuming rectangular data):

my @idx= 0..$#{$aoa[0]};
Shuffle( \@idx );
for my $av (  @aoa  ) {
    @$av= @$av[@idx];
}
[download]