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