https://jacoby.github.io//2019/05/21/ranking-in-perl.html