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

##</code><code>##

my $found;
foreach ( @s ){
  next unless $_ eq 'at';
  $found = 1;
  last;
}

##</code><code>##

  my %h;
  $h{$_}++ for @s;
  warn "got " . ($h{at}||0) . " hits for 'at'";