(undef, undef, undef, age) = $dbh->fetchrow_array();