opendir DIR, '.' or die "Couldn't open directory: $!";

my @directories;

while ($_ = (readdir DIR)) {
    print $_, "\n";
    if (-d $_) {
        #print "This is a dir $_ \n";
        if ($_ =~ /\d*/){    ##if directory name is a number

          push (@directories, $_);
        }
    }    
}


##</code><code>##


 for my $dir_num ( '1', '2', '3' )
  {


##</code><code>##

      foreach (@directories) {

         my $dir_num = $_