use strict; use warnings;
my @foo = qw(one two three);
my @bar = qw(four five six);
my @baz = qw(seven eight nine);

my $i = 0;
for my $array_ref (\@foo, \@bar, \@baz) { # pass references
    print "starting array: ".++$i."\n";
    for (@$array_ref) {                   # de-reference
        print "   array: $i val: $_\n";
    }
}