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 )
			)
        );