use MIME::Lite::TT::HTML;

my $HoH = {
    item_hoh => {
        row1 => { index => 99, col1 => "Col 1", col2 => "Col 2" },
        row2 => { index => 42, col1 => "Col 1", col2 => "Col 2" },
    }
};

my $msg = MIME::Lite::TT::HTML -> new(

From => 'donotreply@windowsintowaukesha.com',
    To => 'you@foo.bar',
    Subject => 'Bid Strategy System - Final Pricing Approval',
    Template => {
        html => 'email_bid_strategy_final_appr.tt',
    },
    TmplParams => $HoH,
);

##</code><code>##

[% FOREACH record IN item_hoh.values.nsort('index') %]
  <tr>
  <td>[% record.index %]</td>
    <td>[% record.col1 %]</td>
    <td>[% record.col2 %]</td>
  </tr>
[% END %]

##</code><code>##

    ...
    $tt->process( $template->{html}, $tmpl_params, \$html ) or croak $tt->error;
    print STDERR $html;    # <---
    ...

##</code><code>##

  <tr>
  <td>42</td>
    <td>Col 1</td>
    <td>Col 2</td>
  </tr>

  <tr>
  <td>99</td>
    <td>Col 1</td>
    <td>Col 2</td>
  </tr>