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