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

[AidanLee]

Supply your own list of vices:

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

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