{ 
    local @ARGV = <*.txt>; 
    while( <> ) { 
        chomp; print $ARGV, '(', $., '):', $_; 
    } 
}