if (open my $fh, "<", $filename) {
    chomp (my $line = <$fh>);
    "$line\t" =~ m/^(?:[A-Za-z]\w*\t)+\z/ or die "Bad header in $filen
+ame";
    my ($fld1, @rest) = split m/\t/ => $line;
    $dbh->do ("create table $tablename (".
        (join "," => "$fls1 text", map { "$_ integer" } @rest).")");
    }
[download]

Of course TIMTOWTDI