Shouldn't you be calling fetchrow_array on the statment handle, not on the result?

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

Incedentaly, $subs_str and $subs_rst look so alike to my eyes that I didn't notice at first that they were even different variables.