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