use strict;
use warnings;

my @SKUs =
   (
      [ q{Bumble}, q{Broth}, 16 ],
      [ q{Wedgie}, q{Benns}, 22 ],
      [ q{Party}, q{Games}, 6 ],
   );

local $";

my $msg = <<END_OF_BODY;

The number of SKUs that have been flagged as DeleteMe

Here is the list of SKUs and their counts:

PLANNERCODE\tDEALER\tCOUNT
-----------------------------

@{ [ map { sprintf qq{%11s\t%6s\t%5d\n}, @$_ } @SKUs ] }


END_OF_BODY

print $msg;

##</code><code>##

The number of SKUs that have been flagged as DeleteMe

Here is the list of SKUs and their counts:

PLANNERCODE     DEALER  COUNT
-----------------------------

     Bumble      Broth     16
     Wedgie      Benns     22
      Party      Games      6