use strict;
use warnings;

##</code><code>##

local *FH; 
open (FH, ...) or die;
$files{$ffc} = *FH;

##</code><code>##

open ($files{$ffc}, ...) or die;