for $i (1 .. $num_responses) {
        $sql = "CREATE TABLE r".$i." (respondent smallint unsigned, PRIMARY KEY (respondent))
        $sth = $dbh->prepare($sql) or die("Could not prepare!" . $dbh->errstr); 
        $sth->execute() or die("Could not execute!" . $sth->errstr); 
        }