print "AA,##,##,DD,EE,##\nAA,BB,CC,##,##,FF\n" # ;-)

##</code><code>##

#!/usr/local/bin/perl -w
use strict;

my @a1=('AA','DD','EE');

my @a2=('AA','BB','CC','FF');

my(@tmp1,@tmp2);

foreach my $xx ('A'..'F') {
    $xx=$xx x 2;
    $a = grep (/$xx/, @a1);
    $b = grep (/$xx/, @a2) ;
    if (($a && $b) || (!$a && !$b)) {
          push (@tmp1,$xx);
          push (@tmp2,$xx);
    } elsif ($a && !$b) {
          push (@tmp1,$xx);
          push (@tmp2,'##');
    } else {
          push (@tmp1,'##');
          push (@tmp2,$xx);
    }
}

print join(',',@tmp1);
print "\n";
print join(',',@tmp2);
print "\n";

##</code><code>##

#!/usr/local/bin/perl -w
use strict;

my (%a1, %a2, @tmp1,@tmp2);

$a1{$_}=1 for ('AA','DD','EE');
$a2{$_}=1 for ('AA','BB','CC','FF');


foreach my $xx ('A'..'F') {
    $xx=$xx x 2;
    if (($a1{$xx} && $a2{$xx}) || (!$a1{$xx} && !$a2{$xx})) {
          push (@tmp1,$xx);
          push (@tmp2,$xx);
    } elsif ($a1{$xx}) {
          push (@tmp1,$xx);
          push (@tmp2,'##');
    } else {
          push (@tmp1,'##');
          push (@tmp2,$xx);
    }
}

print join(',',@tmp1);
print "\n";
print join(',',@tmp2);
print "\n";