Start with perllol and perldata then do a Super Search for HoAoH.

When you have sample code that you are having trouble with, post a follow up question here and we will leap in to help.

Dear vroom unfortunately I have no code and need help with that :)

A first step is to read the documentation. Then draw the data as it will be structured on paper, or other suitable material of your choice, using indentation to show the nesting of the various elements and either {}, () or [] as appropriate to show the type of element. So for example and array of arrays (AoA) might look like this:

(
  ["1 in 1", "2 in 1", "3 in 1"],
  ["1 in 2", "2 in 2", "3 in 2", "4 in 2"],
  ["1 in 3", "2 in 3"]
)
[download]

Then you can do stuff like

my @array =
    (
    ["1 in 1", "2 in 1", "3 in 1"],
    ["1 in 2", "2 in 2", "3 in 2", "4 in 2"],
    ["1 in 3", "2 in 3"]
    );
[download]

to create the array of arrays. Of course until you show us a little code so that we can see what you are trying to achieve it is hard to help much more than that. And yes, I do know that you are after a different data structure than that, but I'm sure with a little work you can at least get to the point of writing some code, even if it doesn't do what you expect.

---

Perl is Huffman encoded by design.

Hey GrandFather, we shuold have a "Homework" node, no?

Celebrate Intellectual Diversity

Most people forget to escape special characters. You did the opposite and added a slash to the email address. When using single quotes or the q quote-like operator, \ is not an escape character unless followed by the string literal terminator (single quote) or another \. That's not the case here. 'email\@address' should be 'email@address' or "email\@address".

Anyway, I'd do it something like this:

my %hash = (       # declare top-level hash
   key => []       # create new empty arrayref with key "key"
);
# create a new anonymous hashref with the data and
# push it onto the array
push @{$hash{key}}, {
   email => 'email@address',
   timestamp => time
};
# that will allow you to get at the first email address
# with the following code:
my $email = $hash{key}[0]{email};
[download]

If you want to access by your given example ($hash{key}{array}[0]{email}) you need an extra hash:

my %hash = ( key => { array => [] } );
push @{$hash{key}{array}}, {
   email => 'email@address',
   timestamp => time
};
[download]

Bug: "email@address" should be 'email@address' or "email\@address", otherwise @address will get interpolated. Under strict vars, this won't even compile.

Oops - that's one of the "old style" perlisms that still bite me occasionally.
"What should it profit a man, if he should win a flame war, yet lose his cool?"

I think you mean $email = $hash{key}[0]{email}; At least, that's what your steps describe.

my %hash;


# Inputed data:

my $email     = 'email@example.com';
my $timestamp = time;


# Adding a record:

my $record = {
   email     => $email,
   timtstamp => timestamp,
};

push(@{$hash{key}}, $record);


# Example of getting a value:

print("email for first record: ", $hash{key}[0]{email}, "\n");
[download]

"@{ $hash{key} }" means "the array at key 'key' in the hash '%hash'". Auto-vivification will create the array for us if it doesn't already exist.

And perhaps what can you help as well is playing with the code you posted:

$hash{key}[0]{email} = 'email@email';
$hash{key}[0]{timestamp} = time;
[download]

$hash{key}[1]{email} = 'email@email';
$hash{key}[1]{timestamp} = time;
[download]