foreach print $line,"\n"; (@macall) {