newXS("G::TStrings::TIEARRAY", TStringsTIEARRAY, "BCB+Perl internal");