for @$r -> $x, $y {
    push @$pairs, [$x, $y];
  }