Algorithm::Permute::permute { print "@array\n" } @array;