Select Code to Download

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