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

##</code><code>##

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