my %index;
my $line=0;
while (<FILE>) {
  my ($location,$time) = /^..(.{9})(.{4})/;
  push @{$index{$location}},[$time,$line];
  $line++;
}