sub ReportThreshholdExceeded
{
		LogMsg("Running ReportThreshholdExceeded");
				
    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\tDEALER\tCOUNT
=================================

<< THIS IS WHERE I WANT TO PRINT THE ARRAY ELEMENTS>>


END_OF_BODY

    my $address = "ssmith\@xyz.com";

    open(MAILER, "| mailx -s \"Manager Approval Required for DeleteMe flagged SKUs on $instance\" $address")
               or warn("Couldn't start mailx: $!\n");

    print MAILER $msg;       # send the mail

    close(MAILER);
    
    LogMsg("Email sent");
}