Help for this page
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;