#!/usr/local/bin/perl
@a = <>;
$i = @a;
while (--$i > 0) {
$r = int(rand(1+$i));
($a[$i], $a[$r]) = ($a[$r], $a[$i]);
}
print @a;


# perl -e '@a = <>; print splice @a, rand @a, 1 while @a' file1 file2 >file3

