# UNTESTED
@ar = <FILE>;

while ( @ar)
{
    my $ind = int rand scalar @ar;
    print "$ar[$ind)\n";
    splice @ar, $ind, 1;
}