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