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

##</code><code>##

for my $location (keys %index) {
  my @sorted = sort { $a->[0] <=> $b->[0]}
      @{$index{$location}};
  for my $entry (@sorted) {
    seek FILE, 81 * $entry->[1], 0;
    read FILE, $line, 80;
    print $line,"\n";
  }
}