my $depth = 5;
my %results;

sub recurse
{
    if (@_ >= $depth) {
        my @deck = (1 .. $depth);
        shuffle(\@deck, [@_]);
        $results{join('', @deck)}++;
    } else {
        recurse(@_, $_) for 0 .. ($depth-1);
    }
}

sub shuffle
{
    my($deck, $rand) = @_;
    my $i = @$deck;
    while ($i--) {
        my $j = shift @$rand;
        @$deck[$i,$j] = @$deck[$j,$i];
    }
}

recurse;

for (sort {$results{$b} <=> $results{$a}} keys %results) {
    printf "%10d %s\n", $results{$_}, $_;
}