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);
}


##</code><code>##

$VAR1 = [
          {
            'cat' => {
                       'name' => 'Category',
                       'id' => '2558'
                     },
            'name' => 'Product One',
            'id' => '7669'
          },
          {
            'cat' => {
                       'name' => 'Category',
                       'id' => '2558'
                     },
            'name' => 'Product Two',
            'id' => '7670'
          },
        ];

##</code><code>##


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

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

        my $cat = ( { name => $name, id => $id } );

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

##</code><code>##

$VAR1 = [
          {
            'cat' => {
                       'name' => 'Category',
                       'id' => '2558'
                     },
            'name' => 'Product One',
            'id' => '7669'
          },
          {
            'cat' => $VAR1->[0]{'cat'},
            'name' => 'Product Two',
            'id' => '7670'
          },
        ];