$directorio = "W:/2017/Agosto"; @archivos_del_mes = glob("$directorio/*"); foreach $archivo_del_mes (@archivos_del_mes) { if (-f $archivo_del_mes) { # archivos sueltos colgando del directorio del mes (?) push @archivos, $files; } elsif (-d $archivo_del_mes) { # es un directorio que contiene días my @dias = glob("$directorio/$archivo_del_mes/*"); # sacamos un listado de todos los días for my $dia (@dias) { # por cada día my @archivos_del_dia = glob("$directorio/$archivo_del_mes/$dia/*"); # archivos de ese día push @archivos, grep { -f $_ } @archivos_del_dia; # los vamos guardando todos juntos } } } print "@archivos";