perldoc -q permute