my $dna =<STDIN>;
... open (DNADATEI, $dna) ...

@datei= <DNADATEI>;
$dna =join ('',@datei);