Since you are using two commands off one prepare, you may need to
use the:

while ( $someVar = $sth->fetch ) {
   do (
      something...
   ) while ( $sth->{syb_more_results} );
[download]

syntax.

This is explained in the "Programming the Perl DBI" book
PG: 326 Don't know if it helps - but it's worth a try.