my $length;

...


if(exists $oligo{$query} || exists $oligo{$revcomp}) 
{
    ...
}
else
{
    print("$revcomp\t appear $oligo{$revcomp} times\t in position ($length - @{$pos{$query}}) on negative strand\n");
#                                                                  ^^^^^^^
}