for ( @{$tmp->[0]->{Kids}} )
{
    print $_->{Kids}->[0]->{Text}, "\n";
}