foreach my $file (@the_files) {move ($file, $there)}