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);