for %%f in (*.pdf) do call :process %%f
:process
for /f %%v in ('"perl des.pl %1 %modelname%"') do set num=%%v

//pass each filename as argument to perl script to process and return a value to be processed in batch

pass arguments to external program

DOS Batch