Select Code to Download

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

my $found;
foreach ( @s ){
...
  $found = 1;
  last;
}

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