#!/usr/bin/perl
while (<>)
{
    $i = int (rand() * $.);
    $a[$.] = $a[$i];
    $a[$i] = $_;
}
print "@a";