@b[$i-($m-2)..$i-1]

##</code><code>##

$i = 10;
$m = 8;

##</code><code>##

@b[4..9]

##</code><code>##

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