while ( my $row = $sth->fetch) {

 print "data es $row->[2].csv\n";

 $dbhC->do("CREATE TABLE $row->[2] AS IMPORT(?)",{},$select);