Question

How do I initialize a 2D array in Perl?

I am trying the following code:

 0 use strict;
10 my @frame_events = (((1) x 10), ((1) x 10));
20 print "$frame_events[1][1]\n";

but it gives the following error:

Can’t use string (“1”) as an ARRAY ref while “strict refs” in use at ./dyn_pf.pl line 20.

This syntax only seems to initialize a 1D array as print “$frame_events[1]\n” works. Though Perl doesn’t give any error during the assignment.

Answer 1

You cannot have an array of arrays in Perl, only an array of references to arrays.

my @frame_events = ([(1) x 10], [(1) x 10]);
print "$frame_events[1]->[1]\n";

Special case: you are free to omit the pointer dereferencing arrow between adjacent brackets (whether square or curly):

print "$frame_events[1][1]\n";

In general you cannot have:

• arrays of arrays (of arrays …)
• arrays of hashes (of …)
• hashes of arrays
• hashes of hashes.

You can have:

• arrays of references to arrays (of references to arrays …)
• arrays of references to hashes (of references to …)
• hashes of references to arrays
• hashes of references to hashes

You can also have:

• arrays of scalars
• arrays of references of arrays of scalars
• arrays of references of arrays of references of arrays of scalars
• arrays of references of hashes of scalars
• etc.