foreach my $line (@array) {