for my $directory ( @directory )
{
	my $dw = new File::DirWalk;
	$dw->onDirLeave(
		sub{
			my $dir = shift;
			if ( $dw->{'depth_count'} == $depth )
			{
				push @folder, $dir;
			}
			return File::DirWalk::SUCCESS;
		}
	);
	$dw->setDepth( $depth + 1 );
	$dw->walk( $directory );
}

##</code><code>##

my $dw = new File::DirWalk;

	sub on_dir_leave
	{
		$dw->{'depth_count'} == $depth and
			push @folder, shift;
		File::DirWalk::SUCCESS
	}

$dw->onDirLeave( \&on_dir_leave );
$dw->setDepth( $depth + 1 );

$dw->walk( $_ ) for @directory;