DB<130> @a = ("abc","aab","abb","aba") 

  DB<131> for (@a) { say "$_ : $1,$2" if /^(.)(?!.*\1)(.)(?!.*\2)/ }
abc : a,b

  DB<132>