Select Code to Download

  push @{$testcenters{$o_city}, $o_tcenter;

for my $city (sort keys %testcenters) {
  for my $center (sort @{$testcenters{$city}}) {
    print "$city: $testcenters<br>";
  }
}