for my $line (@array)