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