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

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