E.g.:

c:\@Work\Perl\monks>perl -wMstrict -le
"sub foo { return qw(foo bar baz quux); }
 ;;
 my $o = bless \do {my $x};
 ;;
 my $like_as_if_it_was_popped = ($o->foo)[-1];
 print $like_as_if_it_was_popped;
"
quux
[download]