#!/usr/bin/perl
use strict;
use warnings;
use Games::Word;

print Games::Word::_permutation('0123456789', 999999), "\n";