my @array = (1..9);
Algorithm::Permute::permute { print "@array\n" } @array;