while ( my @row = $sth->fetchrow_array() ) {
                print ">@row<\n";

        my %by_month = split ' ', $row[1];
        $HoH{$row[0]} = \%by_month;