Perl got so many functionnalities that it’s possible to get an index when iterating over a while loop.