for my $num (@a) { push @hashes,{} } #### $hashes[$_-1]={} for (@a);