convertToFile($dir,$name,@data);

##</code><code>##

$newHash{$file} = $time;

##</code><code>##

$newHash{$dir}{$file} = $time;

##</code><code>##

convertToFile($dir,$name,sort(keys(%data)));

##</code><code>##

    %full = (%files1,%files2);

##</code><code>##

$files1 = {
          'ABC' => {
				  'file1' => 6
				  'file2' => 5
				  'file3' => 8 
				}
          'XYZ' => {
				  'file5' => 6
				  'file2' => 5
				  'file8' => 8 
				}
        };
$files2 = {
          'ABC' => {
				  'file1' => 9
				  'file8' => 5
				  'file3' => 8 
				}
        };