$string='Match';
#
#define Itemstyles
#
$tree1_match_style = $tree1->ItemStyle('text', -foreground=>'green');
$tree2_match_style = $tree1->ItemStyle('text', -foreground=>'green');

#
#add node to tree1 and tree2
#
$tree1->add($indent0_line,-text=> $indent0_line,-itemtype=>'text');
$tree2->add($indent0_line,-text=> $indent0_line,-itemtype=>'text');
 
#
#add style to node entry 
#
$tree1->entryconfigure($indent0_line,-style=>$tree1_match_style);
#
#add data to node entry 
#
$tree1->entryconfigure($indent0_line, -data =>$string);

#
#retrieve data from node
#
my $style_data=$tree1->infoData($indent0_line);
#
#retrieve style from node
#
my $wanted_style = $tree1->entrycget($indent0_line, q{-style});

#
#print retrieved data and style
#
print "Tree1 style[$style_data]\n";
print "Tree1 wanted style[$wanted_style]\n";

#
#configure style of node in tree2
#
if ($style_data eq $string)
{   $tree2->entryconfigure($indent0_line,-style=>$tree2_match_style);
}

##</code><code>##

Tree1 style[Match]
Tree1 wanted style[Tk::ItemStyle=HASH(0x21dd6d4)]
##</code><code>##

$string='Match';
#
#define Itemstyles
#
$tree1_match_style = $tree1->ItemStyle('text', -foreground=>'green');
$tree2_match_style = $tree1->ItemStyle('text', -foreground=>'green');

#
#add node to tree1 and tree2
#
$tree1->add($indent0_line,-text=> $indent0_line,-itemtype=>'text');
$tree2->add($indent0_line,-text=> $indent0_line,-itemtype=>'text');
 
#
#add style to node entry 
#
$tree1->entryconfigure($indent0_line,-style=>$tree1_match_style);
#
#


#retrieve style from node
#
my $wanted_style = $tree1->entrycget($indent0_line, q{-style});

#
#configure tree2 node  with retrieved style from tree1 node
#
$tree2->entryconfigure($indent0_line,-style=>$wanted_style);