>>155
$ @ % の使い分けが分からなかったら、全部 $ で通す事もできるんじゃないかな。

$ary = [1, 2, 3];
print($ary->[1], "\n");

$htbl = {'aaa'=>100, 'bbb'=>200, 'ccc'=>300};
print($htbl->{'aaa'}, "\n");

-> が少し面倒かもしれないけど