my (%row_hash,$row_hash);
tie %row_hash, "Tie::IxHash";
my $row_hash = \%row_hash;
while ($row_hash = $sth->fetchrow_hashref) {...