my @a = ();
print $a[-1];
foo($a[-1]);
sub foo {
}

##</code><code>##

Use of uninitialized value in print at a.pl line 2.
Modification of non-creatable array value attempted, subscript -1 at a.pl line 3
.