for my $pat (1 .. 2**$m-1) {
  ...
  for my $i (0 .. $n-2) {
    for my $j ( $i+1 .. $n-1 ) {
      ...
    }
  }
}