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

        ($key, $value) = split ' ', $row[1];
        $HoH{$row[0]}{$key} = $value;
        
}

while ( ($client, $months) = each %HoH ) {
    print "$client: ";
    while ( ($month, $count) = each %$months ) {
        print "$month=$count ";
    }
    print "\n";
}