my %ok;
for my $i (1..8) {
   for my $j ($i+1..9) {
      $ok{"$i$j"} = 1;
   }
}

my @x = grep $ok{$_}, /(?=(\d\d))/g;