my $iter = make_permutator( values%{$words} );
while (my @els = $iter->() ){
	print join (" ",@els)"\n";
}