i did this and executed then even though the same problem

<code> my $counter = 1; foreach my $key (keys %hdr_field_vars) { my $data_ref = $hdr_field_vars{$key}[0]; # my $form=$hdr_field_vars{$key}1; my $data; # if(($form=~/^V1$/ || $form=~/^V4$/ || $form=~/^V2$/ || $form=~/^V15$/) && defined($data_ref)){ # if($data_ref ne 'NULL'){ # $data = "'".$data_ref."'"; # } # else # { $data = $data_ref; # } # } # else{ # $data = $data_ref; # } print $JBM $data."\n"; # use Data::Dumper; # print $JBM "<--------------------"; # print $JBM Dumper($data); # print $JBM "-------------------->\n"; $sth_header->bind_param( $counter, $data); $counter++; }

ok about second point i know that, the hash will return the values in random order

for date its giving error