# In this world nothing is certain but death and taxes 
   if ($key eq 'death' || $key eq 'taxes') {
      $world{$key} = 1;
   else {
      $world{$key} = int(rand(2) - 1);
   }
[download]

YuckFoo