foreach (keys %planets) {
   lock %{$planets{$_}};
   [...]
   if ($planets{$_}->{'atime'} < $time - $some_limit) {
      delete $planets{$_}; # remove the item from cache
   }
}