perl - 再帰的に作成されたフォルダのPerlチェック条件

Question

/123/456 にフォルダーを再帰的に作成する簡単なスクリプトを作成しました。スクリプトは次のようになります。

$a='123';
$b='456';
$c = 'abc';
unless (-d $c){
    mkdir $c;
}
chdir("$a/$b/$c");


$d = 'def';
unless (-d $d){
    mkdir $d;
}
chdir ("$a/$b/$c/$d");

$e = 'ghi';
unless (-d $e){
    mkdir $e;
}
chdir ("$a/$b/$c/$d/$e");
chdir ("$a/$b);

ここで、ディレクトリの流れが正しいかどうかを確認する必要があります。上記のスクリプトで、それをチェックする別の if 条件または die メソッドを挿入できるかどうかを提案してください。上記のフォルダにそれぞれファイルをコピーしています。

私はperlの初心者です。そう。間違いの場合は訂正してください。ありがとうございました。