You could use this snippet like so.

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

-Lee

"To be civilized is to deny one's nature."