Select Code to Download

my @tmp = qw/1.zip 2.zip 3.zip 4.zip 5.zip 6.zip 7.zip 8.zip 9.zip/;

Directory location:
...
/home/svr/1.0/CD_RH_4/8.zip => 22.5mb [copy to destination]
/home/svr/1.0/CD_RH_4/9.zip => 122.5kb [copy to destination]
--------------copy 4.zip 5.zip 6.zip 7.zip 8.zip 9.zip to /home/des/Di
+sk3/Linux

  opendir(DIR,"/home/svr/1.0"); 
  @dir_list = grep(/^RH_CD\d+$/,readdir(DIR)); 
...
     } 
   } 
 }