perl で質問です

TreePPというライブラリを使ってます。
連想配列 $tree　というのがあってこれにXMLを展開したものを入れてあります。

<top>
<elem>1</elem>
<elem>2</elem>
</top>

こんな感じで
$value = $tree->{top}-{elem}[0];
とアクセスしますよね

elemの個数は不確定です。
１個の時に添え字を使うとperlがエラー起こします。

何個あるかどうかを調べるにはどうしたらいいのですか？