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