my %b;
create_hash_for_filename($filename,\%b);
push @a, {%b};

##</code><code>##

sub create_hash_for_filename {
   my %b;
   ...
   return \%b;
}

push @a, create_hash_for_filename($filename);

##</code><code>##

for my $i (0..9)