@countries = qw(India Germany);
$country = 'd';

print "True","\n" if ( grep /$country/, @countries );