foreach my $line (@array) {
    print $line;
}