my %vars = $q->Vars();#print Dumper %vars;
 $q->delete_all;
print $q ->start_form;
print $q->radio_group(-name=>'options', -values=>[keys %details] ,-columns => 4,
-rows    => 2);

##</code><code>##

foreach my $s (keys %details)
{print  "<input type=\"radio\" name=\"options\" value=".$s,">".$s."  "; 
 }

##</code><code>##

foreach my $s (@opts)
{print  "<input type=\"radio\" name=\"options\" value=".$s,">".$s."  "; 
 }

##</code><code>##

print $q->radio_group(-name=>'options', -values=>\@opts,columns => 4,-rows> 2, -default=>'');