{
    local @ARGV = <*.txt>;
    while( <> ) {
        // $_ contains the lines of the files one at a time; for each file in turn
    }
}