DB<146> grep {$h{$_}==1} map {$h{$_}++;$_} split//,$str1.$str2
 => ("A", "O")