for my $yBand (  int(($Y1-$R1-$M)/W) .. int(($Y1-$R1-$M)/$W)  ) {