foreach $table (@tables) {
    chomp $table;
    print OUTFILE "BEGIN\n";
    print OUTFILE "   DBMS_REPCAT.CREATE_MASTER_REPOBJECT (\n";
    print OUTFILE "      gname => 'beastdb_mstr_grp',\n";
    print OUTFILE "      type => 'TABLE',\n";
    print OUTFILE "      oname => '$table',\n";
    print OUTFILE "      sname => '$schema',\n";
    print OUTFILE "      use_existing_object => TRUE,\n";
    print OUTFILE "      copy_rows => FALSE);\n";
    print OUTFILE "END;\n";
    print OUTFILE "/\n\n";
}