my( $uid, $gid ) = (stat $file)[4,5];
++$user{$uid};
++$group{$gid};
[download]

Actually, you can do that in one line:

sub { ++$used{shift(); ++$group{shift()}; }->((stat $file)[4,5]);
[download]

Of course, just because you can doesn't mean you should.

--bwana147