for $x (? .. ?) {
  for $y (? .. ?) {
    push @pairs, [$y, $y-$x];
  }
}