foreach $line(@array) {