$VAR1 = bless( {
                 'id' => 'cmbDivision',
                 'name' => 'cmbDivision',
                 'menu' => [
                             {
                               'name' => 'The Group A',
                               'value' => '00'
                             },
                             {
                               'name' => 'The Group B',
                               'value' => 'PQ'
                             },
                             {
                               'seen' => 1,
                               'name' => 'The Group C',
                               'value' => 'HP'
                             },
                 'current' => 2,
                 'language' => 'javascript',
                 'onchange' => '__doPostBack(\'cmbDivision\',\'\')',
                 'type' => 'option'


##</code><code>##

my $status_form = HTML::Form->parse($response);
$proj{'status_division'}=$status_form->value('cmbDivision');
print"$proj{'status_division'}