Select Code to Download

my @words = qw ($chromosomefilename);
my $count = grep /$recognitionsequence/, @words;