print $q->start_table;
        &first_process;
			foreach (@comment) { #array starts here
			($jobname, $element, $comment)= split /\|/;
			my $element_drop=$element . "_drp";
			print $q->Tr(
        $q->td($jobname),
        $q->td(
            $q->textfield(-name => $element, -size => 50, -default=> $comment)
          ),
		$q->td(
			$q->popup_menu(-name => $element_drop, -values => ['N/A','Infra Issue','UpStream Delay','Teradata Issue', 'AbInitio Issue','Others'], -default => 'N/A', -labels => \%cause_opt )
			)
        );

##</code><code>##

my %params = $q->Vars;
my @hash_array_keys=keys %params;
my @hash_array_values=values %params;

open FILEHANDLE, ">/tmp/hash.dat" or die "Can not open hash.dat";
$, = "\n";
for my $k (sort @hash_array_keys)
	{
		print FILEHANDLE $k, $params{$k};
	}
#print FILEHANDLE values %params;
close FILEHANDLE;

##</code><code>##

textfield1|popup_menu1
textfield2|popup_menu2
textfield3|popup_menu3