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]'