https://jacoby.github.io/2021/02/16/turning-over-a-new-digit-perl-weekly-challenge-100.html