Yes, Perl is missing some handy idioms. You can use mapcar in this situation, though it isn't a perfect fit:

use mapcar;
mapcar { $_[0]{$_[1]}++ } [\%user,\%group], [(stat $file)[4,5]];
[download]

        - tye (but my friends call me "Tye")