use List::Flatten;
my $tostring = join ',', flat @$TotalEmails;