Und was soll ihm die Liste bringen?
Ein Lösungsansatz waere wohl sinnvoller.

Hier z.B.: https://rosettacode.org/wiki/Kaprekar_numbers#Perl