Or FileCache::Handle, but what is really needed, is a lexically scoped pragma like autodie, so you can

use autofilecache;
use autodie;

my @Fs;
for(1..1024){
  open my($f),'<',$_;
  push @Fs, $f;
}
[download]