my $dir_1 = '/some/dir';
my $dir_2 = '/other/dir';

opendir DIR, $dir_1 or die "Cannot open '$dir_1' $!";

while ( my $file = readdir DIR ) {
    rename "$dir_1/$file", "$dir_2/${file}_processed" or die "Cannot move '$dir_1/$file' $!";
    }