my $count = () = qw(a b c);