while (my ($uid_value) = $stm->fetchrow_array){
      print "$uid_value, ";
    }#End of While