use Quantum::Superpositions;
my $all = all("smart","Australian","rich");
my $any = any("smart","Australian","rich");
print "Yes 1\n" if $all eq $any;
print "Yes 2\n" if $any eq $all;
__END__
Yes 1