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