For a novice, probably so. But it is a nice, concise solution (++). OTOH I might just reach for List::Flatten (or List::Flatten::Recursive if $TotalEmails were to be any deeper).

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