Perl:無名配列と無名ハッシュのリファレンス

@aa =('aa',[1 , 2],{'alphabet' => 'alpha beta gamma'});
print $aa[1]->[0];
print $aa[2]->{alphabet};