my @fields = qw(foo bar baz);

# create a hash (as returned by $form->field)
my $fields = { map { $_ => "val_$_" } @fields };

my  $dbfieldlist = join ", ", @fields;
my  $dbfielddata = join ", ", map { "'$fields->{$_}'" } keys %$fields;  # wrong ordering
#my $dbfielddata = join ", ", map { "'$fields->{$_}'" } @fields;        # ok

print "INSERT into DBTABLE ($dbfieldlist) VALUES ($dbfielddata)";

#      INSERT into DBTABLE (foo, bar, baz) VALUES ('val_bar', 'val_baz', 'val_foo')