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