#!/usr/bin/perl

   use Quantum::Superpositions;

   if (all(@the_world) == $apple_pie and all(@the_seas) == $ink) {
      if (all(@the_trees) == all($bread, $cheese)) {
         $drink = <>;
      }
   }