for(my $j=($i-($m-2));$j<=$i-1;$j++)
#or
for(my $j=($i-($m-2));$j<$i;$j++)