{
    local $\ = "\n";
    print $_ for @array;
}

or

print map {$_ .= "\n"} @array;