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