@{$subs{$file}{TIE_file}} = @TIE_file;