foreach my $question ('a', 'm') {
	if ( sub { $_ eq $question and return 1 for @candidates; 0; }->() ) {
		print "Found $question\n";
	}
}