Looks to me like you're not specifying which file to move.

Here:

 
foreach my $file (@the_files) {move ($here, $there)}
[download]

I think you are essentially trying to move the cwd several times. Maybe this would work better:

 
foreach my $file (@the_files) {move ($here . '/' . $file, $there . '/'
+ . $file)}
[download]