Select Code to Download

my @a = (1, 2, 3, 4);
my @hashes;
...
for my $num (@a) {
   push @hashes,{}
}

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