>perl -E"say scalar( my $x = qw( a b c ) );"
c

>perl -E"say scalar( my ($x) = qw( a b c ) );"
3