Help for this page
@b[$i-($m-2)..$i-1]
$i = 10; $m = 8;
@b[4..9]
for(my $j=($i-($m-2));$j<=$i-1;$j++) #or for(my $j=($i-($m-2));$j<$i;$j++)