#!/bin/perl
use Combinatorial::Permutations;
my @t = p(1,2,3);
foreach $p (@t) { print @$p, "\n"; }

sub p { 
    return Permutations::permutate(@_); 
} 
------
xdev$ ./perm.pl
123
213
231
132
312
321