for my $xBand (  int(($X1-$R1-$M)/$W) .. int(($X1-$R1-$M)/$W)  ) {