my %countries = (
    India    => 1,
    America  => 1,
    Germany  => 1,
    Austria  => 1,
);

if ($countries{$country}){
   print "$country is indeed a country\n";
}