sub by_for {
    my $h = shift;
    die scalar keys %$h unless scalar keys %$h;
    my @def;
    $def[ defined $_ ? 1 : 0]++ for values %$h;
    @def;
}