xx_000000

##</code><code>##

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

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