while(@dirs) {
         my $dir=shift @dirs;

         # Rest of loop here
    }