in reply to More effective way of doing this
Algorithm::Permute::permute { print "@array\n" } @array; [download]