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