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