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