$top->Button(
	-text=>'modify', 
	-command=> sub {
		
		$stuff->{'3,3'} = 'asfasf';
		#&TMRefresh($tg);
	        $tg->configure(-padx =>( $tg->cget(-padx)));
	},
)->pack;

Tk::MainLoop;

sub TMRefresh {
    #Required input TableMatrix object.
    #use to force matrix to update, a code trick
    return if (!$_[0]);
    $_[0]->configure(-padx =>($_[0]->cget(-padx)));
}