use strict;
use warnings;

use Data::Dumper;

my %hash;

for my $i ( 1 .. 3 )
{
	my @array;
	for my $j ( 1 .. 3 )
	{
		push @array, $j;
	}
	push @{ $hash{ID} }, \@array;
}

print Dumper( %hash );