从文本文件中读取，成功存储在数组中，但程序不会退出while循环

So this is what should be of interest for you to be able to help me, the program is written in perl and I'm using both warnings and strict in perl but I get to the end of the text file and then I get stuck with the last output.So this is what should be of interest for you t