>kak v perle massiv s soderzhimym
>directorii
>razbit' na massiv s failami i
>massiv katlogami
>mozhet est' specialniy modul' dlya raboty
>s fs ?

perldoc File::Find