my $ref1 = $tree->Label(
   -text 		=> $_,
   -anchor 		=> 'w'
);
$tree->add(
   $_,
   -window		=> $ref1
);