my $fh;
my $last;
while (<>) {
   my ($file) = /^([^,]+),/;
   if (!defined($last) || $file ne $last) {
      open($fh, '>', "$file.txt")
         or die($!);
   }
   print $fh $_;
   $last = $file;
}