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

##</code><code>##

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