unless (eval { my @a=$dbh->selectrow_array('SELECT anycolumn FROM sometable'); 1 }) {
    $dbh->do('CREATE TABLE sometable ...');
}