• DBI::CSV - if you need SQL, etc for any reason (doesn't look like you will for what you're describing, but just in case...)
• Text::CSV
• With a regexp - if the fields don't contain commas within the values, you can split on /,/. If values can contain commas, the regexp will get a little hairier...

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]

I've made a couple of assumptions in my answer.

1. Your data has no embedded commas (if it has you'll need to look at Text::CSV_XS).
2. You are using columns 0, 1 and 2 from the data. You can adjust this in the line with the call to split.

Here's the code:

open(DAT, 'file.dat') or die "Can't open file.dat: $!\n";

my %data;
while (<DAT>) {
    chomp;
    my ($key, @coords) = (split(/,/))[2, 0, 1];

    push @{$data{$key}}, \@coords;
}

foreach (keys %data) {
    print "$_\n";

    local $" = ', ';
    foreach my $coord (@{$data{$_}}) {
    print "@$coord\n";
    }
    print "end\n";
}
print "end\n";
[download]

Basically I'm building up a hash where the key is grouping column and the value is an array of co-ordinates. Having read the whole file and built up the hash, I then iterate over the hash again and print out hte values.

use strict;
use warnings;

my($file)      = 'foo.txt';
my($cur_segno) = 0;

open(FILE,$file);
while (<FILE>) {
    next unless s/\"//g; # this will skip the first line and remove an
+y "
    my(@res) = split;
    if ($res[2] == $cur_segno) {
    print "$res[0], $res[1]\n";
    } else {
    print "end\n" if ($cur_segno);
    print "$res[2]\n";
    print "$res[0], $res[1]\n";
    $cur_segno = $res[2];
    }
}
print "end\n";
close(FILE);
[download]

#!/usr/bin/perl -w


my %segment = ();
$file = "source_data.txt";

# Open the source file ...
open (FILE,$file)||die "Can't open the source data file $file\n$!\n";

while(<FILE>){
    if (/,/){
        chomp;
        s/\"//g;  # no more double quotes
        my ($segname, @rec) = (split(/,/))[2,0,1];
        push @{$segment{$segname}}, \@rec;
        
    }
}

close (FILE);


foreach (keys %segment) {
          print "$_\n";  
          # let's get the new comma + space in there and print
          foreach (@{$segment{$_}}) {
                print join(", ",@$_) . "\n";   
            }
            print "end\n";
}
[download]

while(<>){  # read through each file specified on the command line one
+ line at a time
    my @temp = split(',',$_); # take that one line and split it into a
+n array determined by the commas
    my ($section,$value1,$value2) = ($temp[6],$temp[12],$temp[18]); # 
+set names to specific spots for readability
    $section =~ s/\"//g; # remove the ", you may have to remove 'g' to
+ make this work
    $value1 =~ s/\"//g;  # it's off the top of my head ;)
    $value2 =~ s/\"//g;

    $ALLDATA{$section} = push [($value1,$value2)]; #put an array of tw
+o numbers into an array those 
 
} # end while<>

foreach my $key (sort keys %ALLDATA) { # go through each section (in o
+rder)
        print "$key\n";
        foreach my $array (@{$ALLDATA{$key}}) { 
               print "\t";
               foreach my $value (@{$ALLDATA{$key}[$array]} {
                       print "$value,";
               }
               print "\n";
        }
        print "END_SECTION\n";
}
[download]

 perl progname.pl < datafilename >
  email me if it dosen't work achesser@nortelnetworks.com

  i wrote that off the top of my head