#!/usr/bin/perl
use strict;
use warnings;

my %seen;
my @gp_name = "INITIALIZING";


open my $FHIN, '<', $ARGV[0] or die $!;
open my $FHNEW, '>', "$ARGV[0].newest2.csv" or die $!;
open my $FHDEL, '>', "$ARGV[0].deleted2.csv" or die $!;

LABEL:
foreach my $line (<$FHIN>){
  $line =~ s/["]//msx;
  my ($key, $rest) = split/,/, $line, 2;
  $key =~ s/ [-&_+'] / /msx;
  $key =~ s/ ( [a-z] ) ( [A-Z] )/$1 $2/msx;
	
  for (my $i = 0; $i < @gp_name; $i++) {
    print "enter my \$i = $i\n ";
    if ($key =~ $gp_name[$i]){
      if (($gp_name[$i] cmp $key) > 0 
         || ($gp_name[$i] cmp $key) == 0) {
             next LABEL;
      } elsif (($gp_name[$i] cmp $key) < 0) {
         $gp_name[$i] = $key;
      }
    } else {
      push @gp_name, $key;
    }
  }#end for	
	
  ($seen{$key}++) ? 
     print $FHDEL "DUP, $line"  : 
     print $FHNEW "$key,$rest";
}# end foreach

close $FHNEW, $FHDEL;