...
  my $iv  = 0 ; for (1..$p) { $iv = ($iv << 2) + 1 ; } ;
  my $cnt = $iv ;
  for my $v ($iv..((2**$b)-1)) {
    ...