#!/usr/bin/perl -w
use strict;
use Math::Random;
@ARGV = random_permutation(@ARGV);
print "$ARGV[$_] => $ARGV[$_ - 1]\n" for 0 .. $#ARGV;