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

So you're counting if $recognitionsequence matches the string $chromosomefilename (the literal string, not the contents of that variable). Is that what you want? If not, take it as a clue as to where start searching for errors.