find(sub { chown($line[4], $line[5], $File::Find::name); }, $line[0]);