my @a = (1, 2, 3, 4);
my @hashes;

for my $num (@a) {
   push @hashes,{}
}

##</code><code>##

$hashes[1]{key} = 'some value';
print "$hashes[1]{key}\n";