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

push @a, create_hash_for_filename($filename);