[0]{0} Perl> $"=''; @d = permutations( [ reverse 1 .. 9 ] ); $_ = "@$_" for @d; $d = join "\r", @d; print $d;;
123456789
[0]{9.26112604141235} Perl>