use strict;
use warnings;

my @a = qw(-true -depth=1);
my @b = qw(-search -depth=1 -true -expand_all);

print '@b contains @a' if @a == grep defined, @{{map {$_=>$_} @b}}{@a}
+;
[download]

O. K., I'm not too serious about proposing this. Though it meets my sense of elegance (somehow).

Also note that no counting takes place: If an element appears more than once in @a they will be covered by a single (identical) entry in @b for acknowledging their containment.