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

##</code><code>##

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