while (<IN>){
      while ($count<=$size){
              rand($.)<1 && ($line=$_);
            print OUT $line;
            $count++;    
            }
        }

##</code><code>##

while (<IN>){
    rand($.)<1 && ($line=$_);
}
print OUT $line;

##</code><code>##

my @lines = <IN>;
for my $c (1 .. 300) {
    my $line;
    for my $i (0 .. $#lines) {
        rnd($i+1)<1 and $line = $#lines[$i];
    }
    print OUT $line;
}

##</code><code>##

my @lines = <IN>;
for my $c (1 .. 300) {
    print OUT $lines[int rand @lines];
}

##</code><code>##

use List::Util qw(shuffle);
my @lines = shuffle(<IN>);
print OUT @lines[0 .. 299];