Select Code to Download

sub hash_filter {
    my $source = shift;
...
        } keys %$filter
    }
}

sub hash_filter {
    return {
...
        } grep { exists $_[0]->{$_} } keys %{$_[1]}
    }
}