my $sth = $dbh_in->prepare("
   INSERT INTO my_table (
             " . join(', ', map 'name_'.$_, 1..@fields) ."
          ) VALUES (
             " . join(',', ('?') x @fields) ."
          )
");

$sth->execute(@fields);