$tree = [[], $key, []];

    sub traverse;
    sub traverse {
        return unless @{$_ [0]};
        traverse $_ [0] [0];
        print    $_ [0] [1];
        traverse $_ [0] [2];
    }