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