Select Code to Download

$sth = $dbh -> prepare("SELECT * FROM bs_trans WHERE bsid = ?");
$sth -> execute($bsid);

my $i = 0;
while (@rray3 = $sth -> fetchrow_array()) {
    $item_hoh{$i} => {index => $i, mva => $rray3[3], hv1 => $rray3[5],
+ lv1 => $rray3[7], ltc => $rray3[10], qty => 'tbd'};
    $i++;
};

my $msg = MIME::Lite::TT::HTML -> new(
    From => 'donotreply@blahblah.com',
...
);
    
$msg -> send();

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