foreach my $city (@{$countries{$country}}) {
    print "$city\n";
}