You are absolutely right! We musn't forget nicotine (in some cases that is) and pizza in this lovely thread!

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

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