@row=();
while (my @row = $stm->fetchrow_array){