お熱い所すいませんが、お願いします。c で以下の様なコードを
perl で実現するにはどうすればいいのでしょうか？

// c の場合
char * a [] = ( 'aaa', 'bbb', 'ccc' );
char * b = &a[1]; // b[0] = 'bbb'

;# perl の場合
@a = ( 'aaa', 'bbb', 'ccc' );
@b = @{ $a[1] }; # うまくいかない…

# @b にどう代入していいか解りません（´д⊂ヾ