Select Code to Download

   print $q->start_table;
        &first_process;
...
            $q->popup_menu(-name => $element_drop, -values => ['N/A','
+Infra Issue','UpStream Delay','Teradata Issue', 'AbInitio Issue','Oth
+ers'], -default => 'N/A', -labels => \%cause_opt )
            )
        );

my %params = $q->Vars;
my @hash_array_keys=keys %params;
...
    }
#print FILEHANDLE values %params;
close FILEHANDLE;

textfield1|popup_menu1
textfield2|popup_menu2
textfield3|popup_menu3