How do you quote and add comma to each element of an array?

my @script = qw(Perl PHP Python Ruby);
print join("," , map {qq("$_")} @script) . "\n";

Move N number of files from one directory to other.

@echo off

set Source=C:\PerlDrift_Bat\IN
set Target=C:\Perl\Drift_Bat\OUT

set MaxLimit=20

for /f "tokens=1* delims=[]" %%G in ('dir /A-D /B "%Source%\*.*" ^| find /v /n ""') do (
move /y "%Source%\%%~nxH" "%Target%"
if %%G==%MaxLimit% exit /b 0
)