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";
  }
}