,,,,,,);
,);
%seen=();
foreach(@a_hast_g){
;
}
@unique=grep($seen{$_},@a_cl_g);
 } map { $d{$_}++; $_ } @a_cl_g, @a_hast_g;
print @unique;