my %count;
$count{$_}++ for keys(%a1), keys(%a2);
my @not_common = grep { $count{$_} < 2 } keys %count;