while (@age_ref = \$sth->fetchrow_array)