my %labels;
my $labels{'foo'} = "String" . 
   popup_menu(-name=>'bar', -values=>\@foobard);

print radio_group(-name=>'clearchannel', 
   -values=>'foo', -labels=>\@labels);
...