my $user = $item->{'user'} if exists($item->{'user'});

my @items;
push @items, {'id'=>1, 'name'=>'item1', 'user'=>'user1', 'group'=>'group1'                 };
push @items, {'id'=>2, 'name'=>'item2', 'user'=>'user2'                                    };
push @items, {'id'=>3, 'name'=>'item3', 'user'=>undef,   'group'=>'group3', 'flag'=>'flag3'};
push @items, {'id'=>4, 'name'=>'item4', 'user'=>'user4', 'group'=>undef   , 'flag'=>'flag4'};
push @items, {'id'=>5, 'name'=>'item5',                  'group'=>'group5'                 };
push @items, {'id'=>6, 'name'=>'item6',                                   , 'flag'=>undef  };
push @items, {'id'=>7, 'name'=>'item7', 'user'=>'user7', 'group'=>'group7', 'flag'=>'flag7'};
push @items, {'id'=>8, 'name'=>'item8', 'user'=>'user8'                                    };

$Data::Dumper::Indent = 0;
print Dumper($_) . "\n" foreach(@items);
foreach my $item (@items)
{
        my $id = $item->{'id'};
        my $user = $item->{'user'}   if (exists $item->{'user'});
        my $group = $item->{'group'} if (exists $item->{'group'});
        my $flag = $item->{'flag'}   if (defined $item->{'flag'});
        print "#$id, user=" . ($user||'-----') . ", group=" . ($group||'------') . ", flag=" . ($flag||'----') . "\n";
}

foreach my $row (values %$data)
{
	my $sub = (exists($row->{'TMS'})) ? $row->{'TMS'} : {};
	my $pkg = $row->{'TMS.PACKAGES'} if (exists($row->{'TMS.PACKAGES'}));
print Dumper($pkg, $row);

my $cache = {'11'=>{'id'=>'11', 'name'=>'aa'}};
my $row = (1 ? $cache->{'11'} : $cache->{'22'} = {'flag'=>'test'});
print Dumper($row);
print Dumper($cache);

my $cache = {'11'=>{'id'=>'11', 'name'=>'aa'}};
my $row = (1 ? ($cache->{'11'}) : ($cache->{'22'} = {'flag'=>'test'}));
print Dumper($row);
print Dumper($cache);

(1 ? $cache->{'11'} : $cache->{'22'}) = {'flag'=>'test'}