perl - Perl でリスト/配列から宛先フォルダーにファイルを移動する

Question

Perlコードで

use File::Find::Rule;

my @files = File::Find::Rule->file()
                            ->mtime('<=' . (time() - 3600))
                            ->in("/source/directory/path");

ソース ディレクトリ内で少なくとも 1 時間変更されていないファイルのリストを取得しました。

そのようなファイルを宛先フォルダーに移動する最も簡単な方法は何ですか? エラー処理も重要です。

これらのファイルを 1 つずつ移動するには loop を使用する必要がありますか、それともエレガントで安全な方法がありますか?