perl -e "sub m {@q=(1,2,3); return \@q;} print @{&m}[0,1];" #succeeds