ありがと
ただ
@$\のくみあわせで
print @{$・・@$ref->[0]};
といったぐあいに（@{@$ref->[0]} 　みたいなかんじ）
で表現できたはずなんだ
どうしてもできない
おしえてほしい