use warnings;
use strict;
use CGI qw(:standard);
use Data::Dumper;

my %labels = (
        monkey => "sigmund",
        cat    => "felix",
        dog    => "fido",
);
print radio_group(-name=>'clearchannel',
        -values=>[keys %labels],
        -labels=>\%labels);