my $tagname = $tagfr->new_tkk__label(-text => 'Mo')->g_grid(-column=>0, -row=>1);
(my $tagname = $tagfr->new_tkk__label(-text => 'Mo'))->g_grid(-column=>0, -row=>1);
my $tagname = $tagfr->new_tkk__label(-text => 'Mo');
$tagname->g_grid(-column=>0, -row=>1);