my @features = ("tall", "handsome", "rich");
my $ideal = any(all("tall", "handsome", "rich"
                all("rich", "old"),
                all("smart", "rich", "Australian"));

if (any(@features) eq $ideal) {
    print "success\n";
} else {
    print "failure\n";
}

print any(@features), "\n";
print $ideal, "\n";

__END__
failure
any(handsome,tall,rich)
any()