[Perl] print 1 elemnt of "list"

[Marc Chantreux]

salut,

> Puisqu'on est là pour triturer perl...
>  perl -e 'sub f{ return (1,2,3)}; for((f)) { print $_; exit}'

    sub f { 1 , 2 , 3 }; exit !print $_ for f

a+