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