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