use Tk::ObjScanner;
use Tk::WidgetDump;
Tk::ObjScanner::scan_object( 
    {
        q{tablematrix} => $yourTableMatrix,
    }
);
$mw->WidgetDump;