Select Code to Download

use strict;
use warnings;
...
foreach my $role (@roles) {
   print(join("\t", $role => sort @{$actors_by_role{$role}}), "\n");
}

1       A       B
2       A       B       C
...
4       A
5       A       B
6       B

use strict;
use warnings;
...
   }
   print("\n");
}

        A       B       C
1       X       X
...
4       X
5       X       X
6               X