my %hash;
while (my @row = $sth5->fetchrow_array) {
   $hash{$row[0]} = \@row;
}