perl -wE'package foo;use Moose;sub foo{return [qw(d e f)]};package main;my $f=foo->new();my @x;push @x, shift $f->foo();say $x[0]'
d