{
    local $" = ",";
    my $_ = "@array";
    s/([^,]*,[^,]*,[^,]*),/$1\n/g;
    print;
}