my %data = ('gruppe1' => [qw/pc1 pc2 pc3/], 'gruppe2' => [qw/pc2 pc4 pc5/], 'gruppe3' => [qw/pc1 pc6/]);

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

use Data::Dumper;
print Dumper \%data2;

# Ausgabe:
$VAR1 = {
          'pc3' => [
                     'gruppe1'
                   ],
          'pc5' => [
                     'gruppe2'
                   ],
          'pc4' => [
                     'gruppe2'
                   ],
          'pc6' => [
                     'gruppe3'
                   ],
          'pc1' => [
                     'gruppe3',
                     'gruppe1'
                   ],
          'pc2' => [
                     'gruppe1',
                     'gruppe2'
                   ]
        };