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