if(@{$t->{children}}){

##</code><code>##

if($#{$t->{children}} > 0){