# ...
    my @fields = (qw(id name salary));
    my $fieldlist = join ", ", @fields;
    my $field_placeholders = join ", ", map {'?'} @fields;

##</code><code>##

    my field_placeholders = join ', ', ('?') x @fields;