my $a = 1;

##</code><code>##

my $a[1];

##</code><code>##

my @a; # this is okay
my $a[1];# no good