use strict;
use warnings;
use List::Util qw(first);

my @countries = qw(India America Germany Austria);
my $country   = 'America';
print "True\n" if first { $_ eq $country } @countries;