my $sth = $dbh->prepare ("select * from foo");
   $sth->execute;
my @fld = @{$sth->{NAME}};
   $sth->finish;
$sth = do {
    local $" = ",";
    $dbh->prepare ("insert into foo (@fld) values (@{[('?') x scalar @fld]})");
    };