foreach my $i (@{$t}) {
        my $id   = $i->{id};
        my $subs = $i->{subs};
        my $name = $i->{name};

        my $rv = $sth->execute($id);

        while (my $r = $sth->fetchrow_hashref) {
                $r->{cat} = ( { name=>$name,id=>$id } );
                push (@{$p},$r);
        }
        return($p);
}