my $t = "\t";
    my $msg = <<"END_OF_BODY";

The number of SKUs that have been flagged as DeleteMe is greater than the
threshold of $threshold and thus Manager approval is required.

Here is the list of SKUs and their counts:

PLANNERCODE${t}DEALER${t}COUNT
=================================

@{[ join("\n", map {join("\t",@$_)} @output_array) ]}

END_OF_BODY