#!/usr/bin/env perl
use strict;

my $ar1 = [1,2,3];
my $ar2 = [4,5,6,7];

my @arrays = ($ar1,$ar2);

foreach my $ary (@arrays) {
    print $#{ary}, "\n";
}
__END__
Global symbol "@ary" requires explicit package name at test.pl line 10.
Execution of test.pl aborted due to compilation errors.