use List::Util qw( first );
my $found = defined first { $_ eq 'at' } @s;