Select Code to Download

use warnings;
use strict;
...
for my $file (@files) {
    print "Move '$file->{path}$file->{name}' to '$to$file->{name}' ref
+ $file->{id}'\n";
}

Move 'C:\Source1\File1.txt' to 'Z:\Processing\File1.txt' ref Reference
+1'
Move 'D:\Source2\sub\File2.txt' to 'Z:\Processing\File2.txt' ref Refer
+ence2'
Move 'E:\Source3\sub2\File3.xml' to 'Z:\Processing\File3.xml' ref Refe
+rence3'
Move 'C:\Source4\File4.pgp' to 'Z:\Processing\File4.pgp' ref Reference
+4'