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 );

##</code><code>##

Output
$VAR1 = 'ID';
$VAR2 = [
          [
            1,
            2,
            3
          ],
          [
            1,
            2,
            3
          ],
          [
            1,
            2,
            3
          ]
        ];