my ( $share_hash, %share_hash, @fields );

You have 2 variables with the same name. To ease the confusion, rename $share_hash as $share_hash_ref

Some other things to try:

• Output will be easier to read if you pass a ref to Dumper: Dumper(\%share_hash)
• Show use a few lines of your input file.
• Basic debugging checklist