Select Code to Download

my %index;
my $line=0;
...
  push @{$index{$location}},[$time,$line];
  $line++;
}

for my $location (keys %index) {
  my @sorted = sort { $a->[0] <=> $b->[0]}
...
    print $line,"\n";
  }
}