Why do you need keys %{$entries{$name} and why not just 
keys %{$entries}?