Help for this page
if (! exists $files{$ffc}) { print "Adding new handle : $ffc\n"; open $files{$ffc}, '>', "${fname}_$ffc.txt" or die $!; }