while ($db->FetchRow()) { ... my $db2 = new Win32::ODBC($connstring) or die $!; ... }