ディレクトリ作成について質問

深い階層のディレクトリを作成する為に、
以下のコードを書いたんだけど、
もっと効率のいい方法は無い？

#!/usr/bin/perl

$d = './aaa/bbb/ccc/'; # まだ存在ディレクトリ構造

@list = split( /\//, $d );
shift @list;

foreach ( @list ) {
$t .= "$_\/";
mkdir( $t, 0755 );
print "$t\n";
}