Select Code to Download

splice(@$monk, $mouth, $#coffee, @coffee)
  foreach $monk ( grep {/wants_coffee/} @monks );