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