use Modern::Perl;

my $a = "AB:APPLE:BOY:ZOO:ZOOM";
my $b = "APPLE:ZOO";
my $c = "BOY:GIRL";

say isSubset( $b, $a );    #Returns 1
say !isSubset( $c, $a );   #Returns 1

sub isSubset {
    my @small = split ':', $_[0];
    my @big   = split ':', $_[1];
    @small ~~ [ grep $_ ~~ @big, @small ];
}