use warnings;
use strict;
use Data::Dumper;

$Data::Dumper::Sortkeys=1;

my $data = {
          'DATE' => '2013-04-25',
          'TW' => '1',
          'REF' => '1234567',
          'ACC' => '33456790'
        };

$data->{DOC} = 'EMAIL';
print Dumper($data);

__END__

$VAR1 = {
          'ACC' => '33456790',
          'DATE' => '2013-04-25',
          'DOC' => 'EMAIL',
          'REF' => '1234567',
          'TW' => '1'
        };
[download]

• perldsc
• perlreftut

The data is a array of hashes:

my @new;
foreach my $row (@$data) {

      push @new, DOC => "EMAIL"}; # 
       
     }
push @$data, @$new;
[download]

Adding an new element to array

Worse, it is a reference to a hash, not a directly specified hash the way most people start using them.

Looks like others are giving guidance on how you might update that hash, so I won't replicate that information here. But nobody seems to have mentioned that you appear to be starting from a faulty assumption: You do not have an array in the usual Perl sense of the word.

How about:

@$VAR1{ keys %$VAR2 } = values %$VAR2;
[download]

or just

$VAR1->{'DOC'} = $VAR2->{'DOC'};
[download]

Here is one good way to do it, but as always, tim toady.

use warnings;
use strict;
use Data::Dumper;

$Data::Dumper::Sortkeys=1;

my $data = {
          'DATE' => '2013-04-25',
          'TW' => '1',
          'REF' => '1234567',
          'ACC' => '33456790'
        };

$data = {%$data, DOC => 'EMAIL'};

print Dumper($data);
[download]

Alternatively, to add the second hash to the first, do something like this:

use warnings;
use strict;
use Data::Dumper;

$Data::Dumper::Sortkeys=1;

my $data = {
          'DATE' => '2013-04-25',
          'TW' => '1',
          'REF' => '1234567',
          'ACC' => '33456790'
        };
my $new = {
          DOC => 'EMAIL' ## NOTE: no need for quotes on thing
                         ##       to the left of `=>'
        };

$data = {%$data, %$new};

print Dumper($data);
[download]

OK may be I am not been clear but this is the reason:

my $data = $dbh->exec("select * ......");

if($data) {

   my $more_data = $dbh ->exec("select * ....");

   if($more_data) {
     my $name = $more_data->[0]{ NAME };
     push @{$data}, {doc_type => $name};
   }

}

print Dumper(@$data);
[download]

Thanks!

#!perl
use strict;
use Data::Dump 'pp';
my $data = [{ 'DATE' => '2013-04-25',
  'TW'  => '1','REF' => '1234567',
  'ACC' => '33456790' }];
          
my $more_data = [{'DOC1' => 'EMAIL1','DOC2' => 'EMAIL2'}];
my @keys = keys %{$more_data->[0]};
@{$data->[0]}{@keys} = @{$more_data->[0]}{@keys};
pp @$data;
[download]

poj