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