my %data;
open(DATA, $file) || die "Can't open $file: $!\n";
while (<DATA>) {
  my ($town, @vals) = split(/\t/);
  $data{$town} = \@vals;
}