use Env qw(@PATH);
#print "@PATH\n";
unshift @PATH, "C:\\windows\\system32\\cmd.exe"; 
#print @PATH;
system  "C:\\windows\\system32\\cmd.exe /C @array > $outfile";
shift @PATH;