Help for this page

Select Code to Download

Select or download this
```
xx_000000
```

Select or download this

my %city_data = ();
my ($city, $id) = split(/_/,$filename);
...
my @tmp = <THIS>; close(THIS);

push @{ $city_data{$city}{$id} }, @tmp;