Select Code to Download

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

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
.