use strict; use warnings; # yadda yadda
use 5.10.0;
sub foo { (1..10) }
my $o = bless \do {my $x};
say "this: ", pop @{[$o->foo]};
__END__
this: 10