sub {

use lib '/www/community/private/lib';

my $NEWDB = new GT::SQL (
def_path => '/www/community/private/defs',
cache => 0,
debug => 0,
subclass => 0
);

my $db = $NEWDB->table('comm_users');
$db->select_options( "GROUP BY prof_gender","ORDER BY gender_count DESC");
my $sth = $db->select("prof_gender", "COUNT(*) as gender_count") or die "Query Error: $GT::SQL::error";

my @genders;
while (my ($s, $c) = $sth->fetchrow_array) {

push @genders, { Name => $s, count => $c }
}

return { gender_loop_count => \@genders }

}

<%user_gender%>

<ul>
<%loop gender_loop_count%>
<li><%Name%> - <%count%></li>
<%endloop%>
</ul>