my @lines;
splice @lines, rand $., 0, $_ while <>;
print @lines;