I got here from Google and this is old but: $h={@arr};
And if you prefer 1 to undef then:

push @arr,1 if @arr % 2;
$h={@arr};
[download]

Nevermind: I misread the question, which was asking for a tree -- moderator, please delete this answer.

---

Demize