#!/usr/bin/perl

# If all the world was apple pie, 
# And all the seas were ink,
# If all the trees were bread and cheese, 
# What should we have for a drink?
#    - Mother Goose
   
   if (@world == $apple_pie and @seas == $ink) {
      if (@trees == ($bread and $cheese)) {
         $drink = <>;
      }
   }