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