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

##</code><code>##

      while ($count<=$size){
            $line=$_;
            print OUT $line;
            $count++;    
            }