my $a = [1, 2, 3];

##</code><code>##

my @a = (1, 2, 3);

##</code><code>##

foreach $a[1](@b)

##</code><code>##

foreach @$a[1][@b]

##</code><code>##

$a[1]