my $extension = '.txt';
my @files = glob("*.tmp");
for my $file (@files) { 
	open IN, '<', $file or die "$!";
	$file =~ s/\..*//;
	my $outfile = $file.$extension;
	open OUT, '>', $outfile or die "$!";
	while (<IN>) {
		next unless $. > 45;
		chomp $_;
		our(@F) = split(' ', $_, 0);
		@array = split(m[[:,/]+], $F[9], 0);
		$check = index($F[4],',');
		if ($check == '-1') {
			$ratio = $array[3] / $array[4]; 
			print OUT "$F[0]\t$F[1]\t$F[3]\t$F[4]\t$ratio\t$array[4]\n";
		}
		elsif ($check > 0) {
			@allele = split(',', $F[4]);
			$ratio1 = $array[3] / $array[5]; 
			$ratio2 = $array[4] / $array[5]; 
			print OUT "$F[0]\t$F[1]\t$F[3]\t$allele[0]\t$ratio1\t$array[5]\n$F[0]\t$F[1]\t$F[3]\t$allele[1]\t$ratio2\t$array[5]\n";
		}
	}
}