for my $elem (sort keys %a) {
  push @tmp1, (grep($elem eq $_} @a1) ? $elem : "##";
  push @tmp2, (grep($elem eq $_} @a2) ? $elem : "##";
}