# Delete the bind_columns line for sth2
while ($sth1->fetch) {
    $sth2->execute (@rec{@fields});
    }