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

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