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