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