@ARGV = <*.txt>;
while (<>) {
    # Files will now be opened and read automagically, and
    # each line placed in $_.  You can see which file
    # you're currently reading from by looking at $ARGV.
}