Some will suggest abandoning CGI.pm, in line with the reasons cited in connection with its removal from core. (I don't subscribe to that.) But a directly relevant suggestion would be to read the doc -- "perldoc cgi" as it discusses using hashes and hash references... and alternatives that would solve your problem.

You don't show an example of your output, nor of the data structures (try Data::Dumper).

For a more mundane Perl question, you have:

for my $k (sort @hash_array_keys)
{
    print FILEHANDLE $k, $params{$k};
}
[download]

which would print like so:

key1value1
key2value2
key3value3
[download]

To fix that -- adding a pipe separator -- try this:

for my $k (sort @hash_array_keys) 
{
    print FILEHANDLE "$k|$params{$k}";
}
[download]

And it seems you are working too hard to get the keys and values -- try this:

my %params = $q->Var;
for my $k (sort keys %params)
{
    print FILEHANDLE "$k|$params{$k}";
}
[download]

Citings? I don't see anything about Vars corrupting data specifically. In perldoc CGI:

"Note that you must use ->upload or ->param to get the file-handle to pass into uploadInfo as internally this is represented as a File::Temp object (which is what will be returned by ->upload or ->param). When using ->Vars you will get the literal filename rather than the File::Temp object, which will not return anything when passed to uploadInfo. So don't use ->Vars."

"If you are using a machine that recognizes "text" and "binary" data modes, be sure to understand when and how to use them (see the Camel book). Otherwise you may find that binary files are corrupted during file uploads."

When making blanket statements like "CGI->Vars corrupts data", please source it with authoritative material (where available), or at least explain some detail of the problem.

Citings? I don't see anything about Vars corrupting data specifically. In perldoc CGI:.... When making blanket statements like "CGI->Vars corrupts data", please source it with authoritative material (where available), or at least explain some detail of the problem.

I didn't post links because its hard to type on a flip phone, can't check my links before posting

Searching the docs for the word "corrupt" might not be productive, but reading the docs for Vars makes it clear what it does and how its design isn't something you ever want

Lots of people skim the docs and think it only returns a hash and that they should use it because they want a simple hash, but there are caveats

But here you go stevieb use CGI->param instead of CGI->Vars , CGI->Vars has caveats , its broken by design , Re: Manually add parameters in perl cgi ( no ReadParse no CGI->Vars, Re^5: Read JSON data from a form (CGI->Vars), Re^5: Read JSON data from a form (CGI->VarsAsHash ), Re^5: Stop Using Perl

param or multi_param is what you should use

use CGI;
my $q = CGI->new('1=1;8=8;9=1;9=2;9=3;9=4;9=5;9=6;9=7;9=8;9=9;99=99;a=
+a;b=b;Z=Z;');
for my $k ( sort $q->param ) {
    print join'|', $k, $q->multi_param( $k ), "\n";
}
print "##" x 3, "\n";
for my $k ( sort $q->param ) {
    my $v = $q->param( $k );
    print join'|', $k, $v, "\n";
}
__END__
1|1|
8|8|
9|1|2|3|4|5|6|7|8|9|
99|99|
Z|Z|
a|a|
b|b|
######
1|1|
8|8|
9|1|
99|99|
Z|Z|
a|a|
b|b|
[download]

I am not looking in this format. For each row, I have two fields, comment(textfield) and cause(dropdown). So for each row I need like

comment1|cause1
comment2|cause2
comment3|cause3
[download]

In the above method you are printing Key/Value combination, but I need two values from foreach statement. Is is possible to do it using param function? or Any other way to achieve it ?

I'm guessing from your script the parameters are paired by the names 'element' and 'element_drp'

#!perl
use warnings;
use strict;
use CGI;
my $string = join ';',('elem1=comment1','elem1_drp=cause1',
'elem2=comment2','elem2_drp=cause2',
'elem3=comment3','elem3_drp=cause3');

my $q = CGI->new($string);
for my $k ( sort $q->param ) {
  if ($k =~ /(.+)_drp$/){
    print join'|', $q->param( $1 ),$q->param( $k )."\n";
  }
}
[download]

poj

In the above method you are printing Key/Value combination, but I need two values from foreach statement. Is is possible to do it using param function? or Any other way to achieve it ?

Is answer by poj what you want?

If it isn't, you're going to have to be more specific, for example, provide a CGI->new('stringhere') that accurately represents the input you have