#!/usr/bin/perl
use strict;

my %a=(
AA=>'Y',
BB=>'Y',
CC=>'Y',
DD=>'Y',
EE=>'Y',
FF=>'Y'
);

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

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

my(@tmp1,@tmp2);


foreach my $xx (sort (keys(%a))) {
    $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,'##');
    } elsif (!$a && ($b)) {
          push (@tmp1,'##');
          push (@tmp2,$xx);
    } 
}

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