# [Perl 6], 82 bytes

*-2 bytes thanks to Jo King*

<!-- language-all: lang-perl6 -->

    {(($!={$/=[^99];:10[map {|splice $/,$_,1},[R,] .polymod(1..97)]})($_+1)-$!($_))/9}

[Try it online!][TIO-jocr9isr]

[Perl 6]: https://github.com/nxadm/rakudo-pkg
[TIO-jocr9isr]: https://tio.run/##NY3RCoIwGEZf5RdGbDV1vyt1hS/R7VgiphAoDr0S89nXFnVzzneuPtvNQ@7GFQ49VG6jlETVRtJKP5QytysKPTYWtvdih1fbAUk5qTnuXN@5gcROwzpOT4pJogpmdkZJfUIWk8gPxlK1u6VZoQ8F/TRDJjkgKg5FwEVIz7OQIWSelYU3CvHFj395U300EK5KFmfuAw "Perl 6 – Try It Online"

0-indexed. Only works up to 98!-2 for now. Doesn't enumerate all permutations.