https://wp.jochen.hayek.name/blog-en/2015/05/04/perl-while-1-vs-for-is-there-a-speed-difference-the-perl-syntax-tree/