-variable   => \$type,
  my $ent1 = $f1->Entry(-textvariable=>\$AssignMet);
  my $ent1 = $f1->Entry(-textvariable=>\$AssignTmy);