#!/usr/bin/perl -w
use strict;
die "bleah... nothing to permutate\n" unless defined @ARGV; 
use Algorithm::Permute qw(permute permute_ref);
print join(" ", @$_), "\n" for permute(\@ARGV);