Select Code to Download

cp ($FH_A, $FH_B);

cp ($file_name_a, $file_name_b);

#!/usr/bin/perl
use strict;
...
}

close $FHNEW, $FHDEL;

___DATA___
Group Onne,Captain,Phone Number,League Pos,etc.
...
GroupOneeroneouskunk,Captain,Phone Number,League Pos,etc.
Group Two,Captain,Phone Number,League Pos,etc.
Group Three,Captain,Phone Number,League Pos,etc.

$seen{$key} =~ m/$key+,/ ? print DUP : print NEW;