Global: List where the users come from?

sub {

use GT::SQL;

use lib '/path/to/secure_data/lib';

my $NEWDB = new GT::SQL (
def_path => '/path/to/secure_data/defs',
cache => 0,
debug => 0,
subclass => 0
);

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

my $current = GT::Date::date_get();
my @current = split /-/, $current; # $current[0]

my $ages;
my $back;
while (my ($s, $c) = $sth->fetchrow_array) {

if ($s !~ /^(19|20)\d\d-/) { next; }

my @date = split /-/, $s; # yyyy-mm-dd

my $age = $current[0] - $date[0]; # age of person looking at

if ($ages->{$age}) { $ages->{$age} += 1; } else { $ages->{$age} = 1;}

}


my @entries;
map {
push @entries, { Age => $_, Count => $ages->{$_} }
} sort keys %$ages;


return { age_loop => \@entries }

}

<%global_name%>

<ul>
<%loop age_loop%>
<li><%Age%> - <%Count%></li>
<%endloop%>
</ul>