Help for this page
opendir DIR, '.' or die "Couldn't open directory: $!"; ... } }
for my $dir_num ( '1', '2', '3' ) {
foreach (@directories) { my $dir_num = $_