#! perl
use strict;
use warnings;

my $dimension = 3;      # change as needed
my @array;

push @array, { data => $_, pointers => [] } for (1 .. $dimension);

push @{ $array[0]->{pointers} }, ('hello world', 'the end is nigh', 'this is the end');
push @{ $array[1]->{pointers} }, ('so long', 'and thanks', 'for all the fish', 42);
push @{ $array[2]->{pointers} }, (3.141592653589793, 'ciao!');

for my $struct (@array)
{
    print "\nData is ", $struct->{data}, ".\n";
    print 'There are ', scalar @{ $struct->{pointers} }, " pointers allocated:\n";
    print "\t$_\n" for @{ $struct->{pointers} };
}