<>;$s{$_}=1for<>; while(1){ @1=sort{.5>rand}qw(i a a e u u); @2=sort{.5>rand}qw(n b m g r); $s="$1[0]$2[0]$1[1]$2[1]$1[2]$2[2]$1[3]$2[3]$1[4]$2[4]$1[5]\n"; if(!$s{$s}){print $s;exit;} }