$dat contains a reference to the hash called %tmp, because that's what you returned from gather when you (correctly) said return \%tmp;. So you need to dereference it when you use it. To dereference $dat as a hash, you would say foreach(keys %$dat).