%filedata{substr($filename, 0,2)} = {
     %{$filename} = $mod_time
   };