#!/usr/bin/perl

use strict;
use warnings;
use List::Util 'shuffle';

sub shuffit { @_[0..$#_] = shuffle @_; }

my @a = 'a' .. 'c';
my @b = 1 .. 4;
my @c = 'A' .. 'E';

shuffit @a, @b, @c;
print "A:= [ @a ]\nB:= [ @b ]\nC:= [ @c ]\n";

__END__
C:\temp>buk.pl
A:= [ 2 D C ]
B:= [ a 1 b 4 ]
C:= [ 3 B c E A ]