for my $k ( keys %$singleton_caches ) {
my $cache = $singleton_caches->{$k};
$cache->flush_all();
delete $singleton_caches->{$k};
}
-