foreach my $line (@array) {
. . .
}