如何在Perl中生成数组的所有排列？

use strict;
use Algorithm::Permute;

my @array = (1, 2, 3);

my $perm = new Algorithm::Permute \@array;

while (my @permutation = $perm->next) {
    print join(", ", @permutation), "\n";
}

1, 2, 3
1, 3, 2
2, 1, 3
2, 3, 1
3, 1, 2
3, 2, 1