$db = new Win32::ODBC("MyDSN");
$db->Sql("select * from table");
while($db->FetchData()) {
   my $var = $db->Data("column");
   $db->Sql("update table2 set col2=\'$var\'");
}