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