I have a hash structure(s) that I would like to store within the array
+, for example like a new record within a table. Here is my code:
[download]

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

    #   The objective of the application is to demonstrate
    #   how to use 

    # Build an array of hashes.
    my @data2 = (
            {            "DR"=>[0,0,0,0,0],
                "SAT ITAMS"=>[0,0,0,0,0],
                "PROD ITAMS"=>[0,0,0,0,0]
            }
    ); # End of the array.
    
    my @data=({}); 
    
    my $work_request = {
       "DR"=>[0,0,0,0,0],
       "SAT ITAMS"=>[0,0,0,0,0],
       "PROD ITAMS"=>[0,0,0,0,0]
    };
    
    
   
    
    for ( my $indx = 0; $indx <=2; $indx++){
        
        # Make a reference to the hash reference 
         my $work_package = \%{$work_request};
        
        
        
        # The hash should be constructed dynamically?
        foreach my $key (keys %{$work_package}){
            my @list = @{$work_package->{$key}};
            for (my $a_id=0; $a_id <= $#list; $a_id++) {
                $list[$a_id]=$indx;
                print " $list[$a_id]\t";
            }
            print "\n";
        }
        print"\n";
        
        # Add the hash reference to the array
        #push (@data, %{$work_package})
        push (@data, \%{$work_package});
        
    }

    # Printing out the array of hashes list. 

    # Now is print out the array of hashes. 
      for ( my $indx = 0; $indx <=2; $indx++){
        
        # Make a reference to the hash reference 
        my $work_package = pop(@data);
        
        # The hash should be constructed dynamically?
        foreach my $key (keys %{$work_package}){
            #print "$key\t";
            my @list = @{$work_package->{$key}};
            for (my $a_id=0; $a_id <= $#list; $a_id++) {
                print " $list[$a_id]\t";
            }
            print "\n";
        }
        print"\n";
    }

The output I get is the following:
 0     0     0     0     0    
 0     0     0     0     0    
 0     0     0     0     0    

 1     1     1     1     1    
 1     1     1     1     1    
 1     1     1     1     1    

 2     2     2     2     2    
 2     2     2     2     2    
 2     2     2     2     2    

 0     0     0     0     0    
 0     0     0     0     0    
 0     0     0     0     0    

 0     0     0     0     0    
 0     0     0     0     0    
 0     0     0     0     0    

 0     0     0     0     0    
 0     0     0     0     0    
 0     0     0     0     0
[download]

I haven't be able to preserve the values. Can someone help 
me?
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.