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

##</code><code>##

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++;
};

##</code><code>##

my $msg = MIME::Lite::TT::HTML -> new(
	From => 'donotreply@blahblah.com',
	To => $to,
	Cc => $cc,
	Subject => 'Bid Strategy System - Final Pricing Approval',
	Template => {
		html => 'email_bid_strategy_final_appr.tt',
	},
	TmplOptions => \%options,
	TmplParams => \%item_hoh,
);
	
$msg -> send();

##</code><code>##

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