my @x;
for (0..2) {
  @x = (0);
  "ab" =~ $p;
  push @r, \@x;
}