use strict;
use warnings;
use diagnostics;
use Data::Dumper;

open(FIL,"report.txt") or die("$!");

my %k=();

while (my $line=<FIL>) {
      next if $. < 2;
        my ($user,$roles,$type,$dt,$empty1,$empty2)=split(/\|/,$line);

        push @{$k{$user}{$type}}, $roles;

}

my @names=(sort keys(%k));



foreach ( @names) {
   if ( @{$k{$_}{Added}} ne ''){
   print "${k{user}}\n";
   print   join ',', @{$k{$_}{Added}};
   print "\n";
   }
   if ( @{$k{$_}{Deleted}} ne '') {

   print join ',', @{$k{$_}{Deleted}};
   print "\n";
        }
}