@global_groups = @{&GetGroups(GROUP_TYPE_GLOBAL)};	
map {$tk{group_list}->insert('end', 
-itemtype=> 'imagetext', 
-text=> "$_", 
-image=> $im{grp})} 
@global_groups;