$dnaLen ||= length $2;

##</code><code>##

die "No dna data found" unless $dnaLen; 
die "No morph data found" unless $morphLen;