See the docs for eof in perlfunc. It gives a recipe on how you can use eof() to detect the end of each file.