my $sqlString = 'delete from %s;'; $dbh->begin_work; my @tables = ('table1','table2','table3'); foreach my $table (@tables) { my $sth = sprintf($sqlString, $table); $dbh->do( $dth ); } $dbh->commit; #### $dth->do("drop table0"); $dth->do("create table0 ( col1 def, col2 def.....)"); etc....