for $x (1 .. 7) {
  for $y ($x+1 .. 7) {
    push @pairs, [$x,$y];
  }
}

##</code><code>##

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