$family = trim($family);
    ( undef, $family_release ) = $family_release =~ /(P|V)(\d+)*/;

    #print "$family\n";

    my $key = get_key_by_rules( $family, $family_release );

    $people{$user}{$key}++;
    $people{$user}{TOTAL}++;