複雑なリファレンス

無名配列へのリファレンスを値として持つ無名ハッシュがあって（そのリファレンスをどこかに置いておいて）、その無名配列に値を push したいときー（実行例）。

$a = {hoge => []};
push(@{$a->{hoge}}, "piyo");

print $a->{hoge}->[0], "\n"; 

push のところでもうちょっとスマートにデリファレンスできないものか。