DB<114> $l = ( @a = qw/a b/ )
 => 2

##</code><code>##

  DB<121> print "$_\n" for ($a=666) x= 2
666
666
 => ""

  DB<122> $a
 => 666