Perl проблем с четене на файл

[PhrozenCrew]

Здрасти хора,
Опитвам се да прочета един файл с Perl, като ползвам цикъла while обаче нещо не мога да схвана защо цикъла става безкраен. В единия случай си бачка, а в другия зацикля здраво. Вижте за какво говоря:

open TEXTFILE, "text.txt";
@ar = <TEXTFILE>;
 
while ($line = <TEXTFILE>){
print "faila se pro4ita normalno kato masiv i wsi4ko prikliu4wann";
}
 
while ($line1 = @ar){
print "Ne moga da zatworia cikyla";
}

Двата цикъла работят по различен начин. Защо ?