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