Binary trees in Perl4