...
my $len;
my $sequenza;
...
my $j;
...
my $length = length($sequenza);
...
print "Insert query:\n";
$query = <STDIN>;
chomp $query;

$len = length($query);
...
for($j = $length; $j < $length - $len; $j--)
{
    ...
}
...