my %data2;
while (my ($gruppe, $pcs) = each %data) {
  push @{$data2{$_}}, $gruppe for @$pcs;
}