my $form = $mech->form_number(1);
my @keyValuePairs = $form->form();

##</code><code>##

my @newKeyValuePairs;
my %testFields =
    ('p_customer' => 1, 'p_name' => 1, 'new_users' => 1);
while (@keyValuePairs) {

    my ($key, $value) =
        (shift @keyValuePairs, shift @keyValuePairs);
    push (@newKeyValuePairs, $key, $value)
          unless (exists($testFields{$key}));
}

##</code><code>##

$mech->set_fields(
    @newKeyValuePairs,
    p_customer => 'Internal',
    p_name     => $thisProject,
    new_users  =>
    join ("\n", @{$newProjects{$thisProject}}),
);

##</code><code>##

Input 'rm' is readonly at /usr/lib/perl5/vendor_perl/5.8.8/WWW/Mechanize.pm line 1233
Input 'member' is readonly at /usr/lib/perl5/vendor_perl/5.8.8/WWW/Mechanize.pm line 1233
Input 'p_id' is readonly at /usr/lib/perl5/vendor_perl/5.8.8/WWW/Mechanize.pm line 1233