my @teacher_input = $mech->find_all_inputs( { 
                                              type     => 'option',
					      name     => 'teacher',
					    }
                                         );


Reference found where even-sized list expected at /usr/local/share/perl/5.10.0/WWW/Mechanize.pm line 973.
 at /usr/local/share/perl/5.10.0/WWW/Mechanize.pm line 973


##</code><code>##

  # get all text or textarea controls called "customer"
    my @customer_text_inputs =
        $mech->find_all_inputs( {
            type_regex => qr/^(text|textarea)$/,
            name       => 'customer',
        }
    );