perl -e "print @{localtime}[1,3];"

##</code><code>##

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

##</code><code>##

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