Select Code to Download

sub isSubsetHash {
    my $count = my @small = split ':', $_[0];
...
    exists( $big{$_} ) && $count-- for @small;
    !$count;
}