The following code was used to delete log files older than x days. You should be able to modify it for your purposes. It's not state of the art (pretty old and designed to be supported by non perl experts so don't take it as gospel).

    ### -------------------------------
    ### Read local directory
    opendir LOCALDIR, $location || 
        croak "Unable to open: $location because $!";

    @local_files = readdir LOCALDIR;

    foreach $file (@local_files){

        ### Don't try to delete directories
        if ($file eq '.' || 
            $file eq '..' ||
            -d "$location$file" ) {
           next;
        }

        ### Test the age of each file in the directory and delete
        ### if too old (N.B. need to prepend directory to find file an
+d 
        ### use unlink for OS portable deletion).

        if ( -M "$location$file" <= $age) {
            $p_debug && 
                print "$file is ok, only ", 
                    -M "$location$file", " days old\n";
        } else {
            $p_debug && 
                print "$file is too old, it's ",
                    -M "$location$file", " days old\n";
            unlink("$location$file") || 
                croak "Unable to delete: $location$file because: $!";
        }
    }
[download]

You could use something like:

        ### Move each file into archive directory
        move( "$location$file", "$target$file") || 
        croak "Unable to move: $location$file because: $!";
[download]

... the above to move files around. You'll need to rename the $file for the target however.