So curvalue/get not working for you?

Try the diagnostical Tk::ObjScanner and Tk::WidgetDump

install cpanp -i Tk::ObjScanner  Tk::WidgetDump

and use

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