foreach my $fileFrom (@filesFrom){
    move ($fileFrom, $fileTo) or die "$!";
}

##</code><code>##

opendir SUBM, $curSubmitDir;
while (defined (my $fileFrom = readdir DIR)){
    move ($fileFrom, $fileTo) or die "$!";
}