foreach my $line ( @array ) {