Welcome Leetsauce,

If your script works for 1 ( then it will work for many ), then you only need to show us the following:

my %compHash =
   ( "e:/pervasive/staging/summit/C01" => "e:/pervasive/test/APEX01201
+5/C01",
   );

       foreach my $key(keys %compHash)
       {   my $value = $compHash{$key};
           my $ret = move($key , $value);
           if ( $ret )    ## If $ret == 1, then success
           {   print "Successfuly moved |$key| to |$value| .\n"; }
           else
           {   print "|$key| not moved to |$value|: $!\n"; }
    
       }
[download]

plus any additional output you might expect. ( Notice I put '|' before and after the '$key' and '$value', to catch any spaces )

From the documentation from 'File::Copy', it states 'move' works on files. Are the keys and values you are working with directories?

Regards...Ed