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

##</code><code>##

my $town = 'London';
my ($lat, $long);
foreach (@data) {
  if $_->[0] eq $town;
  ($lat, $long) = ($_->[1], $_->[2]);
  last;
}

##</code><code>##

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

##</code><code>##

my ($lat, $long) = @{$data{$town}};