https://theweeklychallenge.org/blog/perl-weekly-challenge-192/#TASK2 testing: (6, 9, 5, 1, 3, 8, 4, 5, 7, 2)