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