:l2a list arr -- converts a list to an array
::            -- list [in]  - list name
::            -- arr  [in]  - array name
call set l=,%%%~1%%,
set /a i=0
for /f "delims=" %%a in ('"echo.%l:,=&echo.%"') do (
    call set %~2[%%i%%]=%%a
    set /a i+=1
)
set %~2=%i%
EXIT /b