Supply your own list of vices:

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

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

foreach $self ( keys %monks ) { 
  $monks{$self}->{$_}++ foreach(qw(caffeine nicotine pizza)) 
}
[download]

Surely you jest and mean:

&smoke while (1);
cancer SMiTZ