Select Code to Download

 my @group1 = ('A','B','C','D','E');
 my @group2 = ('F','G','H','I','J');
...
 foreach my $hit (@group2) {  
   push (@group1, $hit) unless grep { $hit } @group1;
   }