foreach (@directories) {

         my $dir_num = $_