$count = 0;
open (DISTLISTS, " < rdy.csv") || die "Unable host file for splitting: $!.";
foreach my $dist_split (<DISTLISTS>)

	chomp $dist_split;
		$count ++;
                 open (OUTPUT1, " >>A.csv")
                 print OUTPUT1 "$dist_split\n";
		if ($count == 200) {
}
}