while (my ($identifier)=$sth->fetchrow_array ) {