http://www.perlmonks.org?node_id=166692


in reply to Caffeine and its delivery to monks in need

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 );


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