gistfile1.txt

$ perl -Mojo -E '
    c(1,2,3)
      ->tap(sub{@$_ = (
        {properties => {release => ["QQ_2022.08.1_rc1"], commit => [1]}},
        {properties => {release => ["QQ_2022.08.1"]}},
        {properties => {release => ["QQ_2022.07.1"]}}
      )})
      ->map(sub{[
        ((grep { /^QQ_2022.08.1(_rc\d+)?$/ } @{$_->{properties}->{release}})[0]||undef),
        ((grep { $_ eq "1" } @{$_->{properties}->{commit}})[0]||undef)
      ]})
      ->grep(sub{
        $_->[0] && $_->[0] =~ /^QQ_2022.08.1(_rc\d+)?$/
      })
      ->sort(sub{
        $a->[0] cmp $b->[0]
      })
      #->tap(sub{})
      ->each(sub{say j($_)})
    '