for ($dna_counter = 0; $dna_counter < $length_dna ; $dna_counter++ ) {

 if (substr(@lines, $_, 1) eq substr (@lines2, $_, 1))  {

 print '';
}

else {

print "*";
}
}
print "\n";