$ perl -le '@a=([],[],[qw(a h o)]);print $a[-1]->[0]'

エラーの意味も分からないのねかわいそうに