%record = $sth->fetchhas