Re: hashes hash refs and arrays

[aitap]

$share_hash{$fields[$colhash{res_stay_id}]} = [@fields];

This fills the %share_hash hash.

foreach my $share_item (keys %$share_hash) {
 my $row = $share_hash->{$share_item};

This tries to work with $share_hash scalar variable (which is different from %share_hash) as a hash reference and should probably trow some errors/warnings.
Use keys %share_hash and $share_hash{$share_item} instead.