use strict;

my @myarr;

my $lpn;
my $ppn;
my $i;

for ($i=0;$i<15;$i++) {
	($lpn, $ppn) = get_ns($i);
	push @{ $myarr[$lpn] }, $ppn;
}	

for my $index (0..$#myarr) {
	next unless defined $myarr[$index];

	my @tmp;
	for my $subindex (0..scalar(@{$myarr[$index]})-1) { 
		my $date;
		for ($date=0;$date<10;$date++) {
			$tmp[$date] = get_date($index, $subindex);		
		}
		push @{$myarr[$index][$subindex]}, [ @tmp ];
	}
}

sub get_ns {
	return (int(rand(100)), int(rand(100)));
}

sub get_date {
	return get_ns;
}

##</code><code>##


Can't use string ("23") as an ARRAY ref while "strict refs" in use at ./eg.pl line 24.


##</code><code>##


push @{$myarr[$index][$subindex]}, [ @tmp ];