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