in reply to My permutor
in thread How can I improve this?

does this work? how do you call it?

In Section Seekers of Perl Wisdom