FILENAME:
while (<list*>){
    open(FH, "< $_") || die;
FILELINE:
    while (<FH>) { # <> uses filehandle here, reads lines
        # do stuff to lines
    }
    close( FH);
}