关于perl调用shell命令问题

小弟学化学的，初学perl，想用perl编一个循环的脚本。就是在当前目录下的几个文件拷贝到另一个目录，再进入到那个目录下，将其中一个文件改名以便执行程序，然后在该目录下执行程序，运行一段时间后，在将这个目录下的几个文件拷贝到下一目录，改文件名，执行程序，以此循环做一个统计系综。代码如下
#!/usr/bin/perl
for(my $i=2;$i<500;$i++) {
system(`cp CONTROL  DLPOLY.X  FIELD REVCON ../$i`);
system(`cd ../$i`);
system(`mv REVCON CONFIG`);
system(`mpirun -np 4 ./DLPOLY.X`);
sleep 45;
}
但我的程序只在当前目录下执行了第一个命令和第四个命令，小弟初学啊，实在是搞不懂啊，请各位高手达人给指点一下，感激不尽啊！！！！！！！！