I would do that in bash (which is perfect to execute commands)

for f in /path/to/files/*RAN*.log
do
   script "$f" > "$f".pd
done
[download]

If you want to do that in perl:
See glob for globbing, and system for executing and maybe perlsyn for foreach syntax
Regards, Updated to double quote vars (thanks to cdarke)