# after printing the initial table comments print $dbh->selectall_arrayref("SHOW CREATE TABLE $table")->[0][1],"\n";