foreach my $cell (@rows){
    	 split(/,/);
	    	
    	print $cgi->td("$cell");
	     for(my $i= 1;$i<=12;$i++){
             	print $cgi->td($cgi->radio_group(-name=>"radio$cell$i", -values=>['ON'], -default=>'', -column=>2, -row=>1)) ;
	     }
    	print $cgi->Tr();
    
   }