Select Code to Download

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

while (@features = get_description) {
  if (any(@features) eq $ideal) {
    print "True love";
  }
}