my $food = "pizza\n";
while ($hungry){
     if($food){
          chomp($food);
     }else{
          find($food) or die;
     }
}