my @a = qw(1 2 3);
my @b = qw(4 5 6);
my @c = qw(7 8 9);

my @all = ( \@a, \@b, \@c, );

for my $aref ( @all ){
    print $_ for @{ $aref };
    print "\n";
}