sub isSubset {
    my $count = my @small = split ':', $_[0];
    my @big   = split ':', $_[1];
    do { $count-- when @big } for @small;
    !$count;
}