while ($pointer = $sth->fetchrow_hashref) {
	  $category = $pointer->{'category'};


	  
	  unless  (!$category || $category ~~ @list) {
	   print "<LI>$category\n";
	  }

	
	push (@list, "$category");
	
	
} #end while