if(...something...) {
$n_DT[$count] = DT->new;
if($line =~ m/>(.*)</) { $n_DT[$count]->{'ID'} = $1; }
...
}

elsif(..something else)...) {
$r_DT[$count_1] = r_DT->new;
if($line =~ m/>(.*)</) { $r_DT[$count_1]->{'ID'} = $1; 
...
}