use strict;
use warnings;

use Algorithm::Permute qw(permute);

my ($n,$i,@n,@temp,%arrangements);

$n = 8;        @n = (1..$n);
$i = 0;        $temp[&_fact($n)-1] = 1; # _fact := n!

$|++;
permute { $temp[$i++] = join(',',@n) } @n;
print STDERR scalar(localtime),$/;
@arrangements{@temp} = undef;
print STDERR scalar(localtime),$/;

sub _fact {
    my($n) = @_;
    my $t = 1;

    while ($n > 1) {
        $t *= $n;
        --$n;
    }

    $t
}

##</code><code>##

red.vulpes.com:~% perl test.pl
Mon Sep 30 16:49:39 2002
Mon Sep 30 16:49:40 2002
red.vulpes.com:~% perl -v

This is perl, v5.8.0 built for i686-linux-thread-multi
...