You need to anchor your pattern match in grep, otherwise ...

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

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