...
my $query = "CREATE TABLE $table";
for ($f=1;$f<=$field;$f++)
...