... # <DNA> opened

my $genome = '';
while (<DNA>) {
    
    chomp($_);
    $genome.=$_;

}

close(<DNA>);
print "$genome\n";