@b = ( @a, 11, 32 );

my ( @newa, @newb, @newc );

my @sizes = ( scalar(@a), scalar(@b), scalar(@c) );

my @where_to = qw/a b c/;

##</code><code>##

use List::Util 'shuffle';
@shuffled = shuffle(@list);

##</code><code>##

use XXX; 
use List::Util;
@a=qw/foo bar baz/;
@b=qw/mickey/;
@c=qw/x y z/;

(@a[0..$#a],@b[0..$#b],@c[0..$#c]) = List::Util::shuffle(@a,@b,@c);

XXX [\@a, \@b, \@c]'