Select Code to Download

my %seen;
my @all = grep !$seen{$_}++, @group1, @group2;

my @all;
my @group1_s = sort compare_func @group1;
...
   else             { push(@all, scalar(shift(@group1_s), shift(@group
+2_s))); }
}
push(@all, @group1_s, @group2_s);