my $form = $mech->current_form;
  warn $form->find_input( 'shopwizard' );

##</code><code>##

my $form;
foreach ( $mech->forms ){
  if( $_->find_input('shopwizard') ){
    $form = $_;
    last;
  }
}

# OR (yet another way; slightly less efficient):

my @shopwizardForms = grep { $_->find_input( 'shopwizard' ) } $mech->forms;
# or just:
my ($shopwizardForm) = grep { $_->find_input( 'shopwizard' ) } $mech->forms;