Select Code to Download

####
#  This subroutine takes a file containing any number of FASTA sequenc
+es, and
...
  close(DNA) or croak("Cannot close $filename:$!\n");
  return %matches; 
}

Sample sequence:
>LepenhancerForward
...
Dumper output is:
$VAR1 = '>LepenhancerForward';
$VAR2 = {};