# find all the entities in the current file
  if (/entity\s+(\w+)\s+is/i) {
    $1{'name'} = $1;
    $1{'fname'} = $vhd_file;
    push @entities, \%1;
  }


##</code><code>##

   push @entities, \%{$1};


##</code><code>##


use Data::Dumper;
....
 # find all the entities in the current file
  if (/entity\s+(\w+)\s+is/i) {
    $hash{$1}{'name'} = $1;
    $hash{$1}{'fname'} = $vhd_file;
    push @entities, $1;
  }  
....
close VHD;
}

print Dumper(%hash);

##</code><code>##

-_-_-_-_-_-_-_-_-_-_-_-
My memory concerns me
- but I forget why !!!