#! /usr/sbin/perl

srand;

while (@ARGV) {
	$i = rand(@ARGV);
	print $ARGV[$i],"\n";
	splice (@ARGV, $i,1);
}
