What the hell does that do ? 

parse_tree_consume.png
my $text = join " ", 
           map {ref $_ eq 'HASH'  ? $_->{text}   : $_} 
           map {ref $_ eq 'ARRAY' ? @$_          : $_}
               @item[1 .. $#item];