my $data = {};
while ( chomp( $_ = <DATA> ) ) {
  my $list = [ split ];
  tr /"//d foreach @{$list};
  push @{$data->{pop @{$list}}}, [ @{$list} ];
}

foreach ( sort keys %{$data} ) {
  print "$_\n";
  foreach ( @{$data->{$_}} ) {
    print join ', ', @{$_};
    print "\n";
  }
  print "end\n";
}

__END__
 "-69.87"        "40.07"         "952026060"
 "-69.85"        "40.07"         "952026060"
 "-69.84"        "40.07"         "952026060"
 "-65.64"        "41.13"         "952026064"
 "-65.66"        "41.15"         "952026064"
 "-65.60"        "41.32"         "952026064"
 "-65.61"        "41.33"         "952026064"
 "-65.57"        "41.15"         "952026066"
 "-65.57"        "41.13"         "952026066"
 "-65.57"        "41.12"         "952026066"
 "-65.56"        "41.11"         "952026066"
 "-65.56"        "41.10"         "952026066"
 "-65.54"        "40.97"         "952026066"
 "-65.54"        "40.96"         "952026066"
 "-65.53"        "40.95"         "952026066"
 "-65.53"        "40.94"         "952026066"
 "-65.47"        "41.16"         "952026067"
 "-65.46"        "41.15"         "952026067"
[download]