my $towndb = TownDatabase->new();
foreach my $region (qw[eu us au]) {
    $towndb->loadFile($region . 'towns.dat');
}