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

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