Help for this page
$dnaLen ||= length $2;
die "No dna data found" unless $dnaLen; die "No morph data found" unless $morphLen;