https://jacoby.github.io/2021/06/14/trees-and-rows-perl-weekly-challenge-117.html