http://qs321.pair.com?node_id=166750


in reply to Re: Caffeine and its delivery to monks in need
in thread Caffeine and its delivery to monks in need

Supply your own list of vices:

@foibles = qw( caffiene pizza ... );

foreach $monk (@perlmonks) {
    push @{ $monk->{toConsume} }, 
        grep { exists $monk->{vices}{$_} } @foibles;
}

[download]

In Section Meditations