in reply to open multiple file using loops

Here is an example of multiple files being opened for reading, one at a time: Re^3: very new to perl; suggestions for porting this shell script to perl?