if ($food) {
      print "$food\n";
      eat (substr($food,0,length($food)-1));
   }