change:

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

with

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