Help for this page
Select Code to Download
Select
or
download this
for my $num (@a) { push @hashes,{} }
Select
or
download this
$hashes[$_-1]={} for (@a);