How to group possible bundles when given only part_ids

bundle_pid.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

my $bundle = {
  A => [qw{box widget1}],
  B => [qw{box widget1 widget2}],
  C => [qw{box widget1 widget3}],
  D => [qw{box widget1 widget2 widget3}]
};

sub group_ids{
    my $return = {};
    # ???
    return $return;
}

is_deeply group_ids(@{ $bundle->{A} }),
          { A=>[[qw{box widget1}]] },
          q{A only};

is_deeply group_ids(@{ $bundle->{A}},
                    @{ $bundle->{D}},
                    @{ $bundle->{D}},
                    qw{ widget1 widget1},
                   ),
          { A => [[qw{box widget1}]],
            D => [ [qw{box widget1 widget2 widget3}],
                   [qw{box widget1 widget2 widget3}],
                 ],
            other => [['widget1'],['widget1']]
          },
          q{A,D,D, and two widget1s};