my $forms = $mech->forms();

my $form_num;
for (0..$#$forms) {
   if ($forms->[$_]->find_input('shopwizard')) {
      $form_num = $_ + 1;
      last;
   }
}

die("Unable to find shopwizard form\n")
   unless $form_num;

$mech->submit_form(
   form_number  => $form_num,
   fields       => {
      shopwizard   => "Winter Love Usuki Set",
      criteria     => 'exact'
   }
);
[download]