Slutning af while

Hej eksperter.

Jeg er ved at lære at programmere i perl, men kan ikke få sluttet min while lykke. Her er min kode:
while(1) {
    print "Skriv stien til filen:     ";
    chomp($fil = <STDIN>);

if(not(-e "$fil")) {
    print "Fil ikke fundet\n"
}

else {
    open(A, "$fil");
    @b = <A>;
    print @b;    
}
}

Håber I kan hjælpe ;)