my $ct = scalar grep { $_ eq 'at' } @s;