my @temp_tables = qw/foo bar bax quux/;

my %tables = map { $_ => {} }
                 @{$dbh->selectall_arrayref("show tables", {Columns => {}})};

foreach (@temp_tables) {
  $dbh->do("drop table $_") if exists $tables{$_};
}