foreach (creates())
{
    $dbh->do($_) or die...
}

sub creates
{
    return split(/^EOC$/m, <<EOS);
    CREATE TABLE name
    (
        id INTEGER PRIMARY KEY,...
    )
EOC
    CREATE TABLE...
EOC
    more create, alter, etc
EOS
}