my $fieldlist = join(",", @fields);
my $placeholders = join(",", map {'?'} @fields);

my $insert = qq{
	INSERT INTO foo ($fieldlist) 
	VALUES ($placeholders)};