print "table exists" if grep {"tablename" eq $_ } $dbh->tables;