Not so elegant (in more then one way) as my $CB_post, but sufficient...

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

er formait hyarya.
"Field experience is something you don't get until just after you need it."