my %fields = (
   name => "Richard",
   age  => "12",
   location => "mars",
   forum_user => "xxxxx",
   forum_pass => "yyyyy",
);

##</code><code>##

    $mech->submit_form(
        form_name => $search_form,
        fields      => \%fields,  # pass reference to %fields
    );