use FileCache maxOpen => 10000;

##</code><code>##

open $file{$key}{fh}, ">", cacheout $file{$key}{name} or die