$ perl -wMstrict
my @foo;
@foo[3] = "bar";
print @foo[3], "\n";
__END__
Scalar value @foo[3] better written as $foo[3] at - line 3.
bar