Tip #2 from the Basic debugging checklist: start printing array and hash values as soon as you populate them:

print Dumper(\@seq);

open $fa, "top_10_hexamers.txt";

while(<$fa>)
{
        chomp;
        $hx{$_}++; #hash of 10 hexamer
}
print Dumper(\%hx);
[download]