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

##</code><code>##

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

Directory location:

Source-----                                      Destination
/home/svr/1.0                                  
/home/des/Disk1/Linux                  
                     /CD_RH_1
                     /CD_RH_2
                     /CD_RH_3
                     /CD_RH_4
foreach (@tmp) to find

/home/svr/1.0/CD_RH_2/1.zip =&gt; 2 gb [copy to destination] 
/home/svr/1.0/CD_RH_1/2.zip =&gt; 1 gb [copy to destination]
--------------So only 1.zip and 2.zip can fit in /home/des/Disk1/Linux
                  Adding 3.zip would go over 4 gb 
--------------mkdir  /home/des/Disk2/Linux
/home/svr/1.0/CD_RH_3/3.zip  =&gt; 2gb [copy to destination]
--------------only 3.zip can ! fit in /home/des/Disk2/Linux
                  Adding 4.zip would go over 4 gb 
--------------mkdir  /home/des/Disk3/Linux
/home/svr/1.0/CD_RH_4/4.zip =&gt; 2.5gb [copy to destination]
/home/svr/1.0/CD_RH_2/5.zip =&gt; .5mb [copy to destination]
/home/svr/1.0/CD_RH_1/6.zip =&gt; .25gb [copy to destination]
/home/svr/1.0/CD_RH_3/7.zip =&gt; 112.5mb [copy to destination]
/home/svr/1.0/CD_RH_4/8.zip =&gt; 22.5mb [copy to destination]
/home/svr/1.0/CD_RH_4/9.zip =&gt; 122.5kb [copy to destination]
--------------copy 4.zip 5.zip 6.zip 7.zip 8.zip 9.zip to /home/des/Disk3/Linux

##</code><code>##

  opendir(DIR,"/home/svr/1.0"); 
  @dir_list = grep(/^RH_CD\d+$/,readdir(DIR)); 
 
  closedir(DIR); 
  foreach $dir (@dir_list) 
  { 
   opendir(DIR,"/home/svr/1.0/$dir"); 
 
   @file_list = grep(!/^\.\.?$/,readdir(DIR)); 
 
   closedir(DIR); 
   foreach $file (@file_list) 
   { 
     $filename = "/home/svr/1.0/$dir/$file"; 
 
     $base{"$dir/$file"} = $file; 
     if (-f $filename) 
     { 
       $filesize{"$dir/$file"} = -s $filename; 
     }elsif (-d $filename) 
     { 
       chomp($filesize{"$dir/$file"} = qx(du -sk $_)); 
       $filesize{"$dir/$file"} *= 1024; 
     } 
   } 
 } 
 $limit = 4*1024*1024*1024; 
 $dest = 1; 
 chomp($dest_size = qx(du -sk "/home/des/Disk1$dest/Linux")); 
 
 $dest_size *= 1024; 
  while (%filesize) 
 { 
   $got_onfiltered= 0; 
   foreach (sort {$filesize{$a} <=> $filesize{$b}} 
  keys %filesize) 
   { 
     last if $dest_size + $filesize{$_} > 
  $limit; 
     system("cp -Rp /home/svr/1.0/$_ /home/des/Disk$dest/Linux/$base{$_}"); 
 
  $dest_size = $dest_size + $filesize{$_};
     delete $filesize{$_}; 
     $got_onfiltered= 1; 
   } 
   if (!$got_one) 
   { 
     if ($dest_size == 0){ 
       print "ERROR: all remaining files too big:\n"; 
       foreach (keys %filesize) 
       { 
         print "$_: $filesize{$_}\n"; 
 
       } 
       die; 
     }else{ 
       $dest++ 
       mkdir ("/home/des/Disk$dest/Linux)
       $dest_size = 0; 
     } 
   } 
 }