my $fSNP = substr($seq, $i->{pos} - $pos, 1);
print $out "$fSNP\n";