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