print scalar (my ($x, $y, $z) = qw( a b c d ));  # 4