[0]{0} Perl>@d = permutations( [ reverse 1 .. 9 ] );;
[0]{2.31235218048096} Perl>

[0]{0} Perl> printf "\r%s\t", join '', @$_ for @d;;
123456789       
[0]{18.9919490814209} Perl>