Pseudo-hashes are deprecated at ...
    (D deprecated)  Pseudo-hashes were deprecated in Perl 5.8.0 and they
    will be removed in Perl 5.10.0, see perl58delta for more details.
    You can continue to use the fields pragma.

##</code><code>##

foreach my $key ( keys %{$library->{place}} )