$dna =~ s/(.{60})/$1\n/g;

print "$dna\n";
print OUTFILE "$dna\n";