Help for this page
my %o = ( $yyyy => {$mm => {$dd => ['file_1'..'file_n']}} );
use strict; use File::Find; ... } }