Select Code to Download

my $length;

...
    print("$revcomp\t appear $oligo{$revcomp} times\t in position ($le
+ngth - @{$pos{$query}}) on negative strand\n");
#                                                                  ^^^
+^^^^
}