e842d56
1 2 3 4 5 6 7
#!/usr/bin/perl use strict; use warnings; use Games::Word; print Games::Word::_permutation('0123456789', 999999), "\n";