while($count < 155){

	my $output_file = "$output_dir"."compute_minor_alleles_28_males."."$count".".txt";
	open(OUT, ">$output_file");
	print OUT "position\tminor allele frequency\n";

	my $input_file = "$input_dir"."temp_file_". "$count."."txt";
	
	open (CG, "<$input_file") or die "Cannot open $input_file:$!\n";
	while (my $cg = <CG>){
		
		if ($cg =~ /NA/){
			next;
		}
		
		chomp($cg);	#get rid of newline character
		@info =  split(" ", $cg);