gistfile1.PL

my %cities;
open my $in, "infile";
while (<$in>) {
   my @line = split /\t/;
   next unless $line[2] eq "H1N1";
   next unless $line[6] eq "South Africa";
   my @city = split /\//, $line[3];
   $city = $city[1];
   $cities{$city} = 1;
}
foreach my $city (keys %cities) {
   print "$city\n";
}