perl -e'\$a[0]'
perl -e'\$a[-1]'

##</code><code>##

perl -le '$a[0]; print scalar @a'
perl -le '\$a[0]; print scalar @a'

##</code><code>##

foo( [$a[-1]]->[0] );
do { foo(my $t = $a[-1]) };
foo( defined $a[-1] ? $a[-1] : undef ); 
foo( "$a[-1]" );