use strict;
use warnings;

open (OUT, ">c:/work/250/250_random.txt");
open (IN, "c:/work/250/Master_file.txt");

$size=300;
$count = ();

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