Help for this page
DB<114> $l = ( @a = qw/a b/ ) => 2
DB<121> print "$_\n" for ($a=666) x= 2 666 ... DB<122> $a => 666