Select Code to Download

use 5.026;
use warnings;
...
say qq{Server $_ is in groups },
   join q{, }, sort @{ $inGroups{ $_ } }
   for sort keys %inGroups;

%inGroups = (
              'server02' => [
...
Server server02 is in groups serversA, serversB, serversC, serversD
Server server03 is in groups serversC
Server server04 is in groups serversA, serversB, serversC