sub items_retrieve {
    my $id = shift;
    my @items = @{$group{$id}{items}};
    return @items;
}