while ( @row = $subs_str->fetchrow_array ) {