Untitled

#!/usr/bin/perl

my @data;
my @data2;
my %dupe;
my $d2cnt;
my @dupecp;

open(F, "cplist.csv");
@data = <F>;
chomp(@data);
close(F);

@data2 = @data;
for(my $x = 0; $x < @data; $x++) {
  my ($ocpref, $ocpname) = split(/,/, $data[$x], 2);
  print "$ocpref $ocpname\n";
  $d2cnt = @data2;
  $ocpnamechk = $ocpname;
  $ocpnamechk =~ s/[^A-Z0-9]//gi;
  print "NAME: $ocpname $ocpnamechk\n";
  print "$d2cnt\n";
  undef @dupecp;
  for(my $y = 0; $y < $d2cnt; $y++) {
    my ($ccpref, $ccpname) = split(/,/, $data[$y], 2);
    $ccpnamechk = $ccpname;
    $ccpnamechk =~ s/[^A-Z0-9]//gi;
    if ($ocpref == $ccpref) {
      splice(@data2, $y, 1);
      $d2cnt = @data2;
      print "AFTER DELETE $d2cnt\n";
      next;
    }
    if (lc($ccpnamechk) eq lc($ocpnamechk)) {
      print "MATCH $ocpref $ccpref\n";
      print "MATCH $ccpname $ocpname\n";
      print "MATCH $ccpnamechk $ocpnamechk\n";
      splice(@data2, $y, 1);
      $d2cnt = @data2;
      print "AFTER DELETE $d2cnt\n";
      push(@dupecp, $ccpref);
    }
  }
  if (@dupecp > 0) {
   $dupe{$ocpref} = join(':', @dupecp);
   print "$ocpref => $dupe{$ocpref}\n";
  }
}