my @lines = <FILE>;
    print splice( @lines, rand @lines, 1 ) while @lines;