use File::Find;
my %users;
find(sub {
  return unless -f and /\.LCK$/;
  local @ARGV = ($file);
  my ($key) = <>;
  chomp $key;
  $users{$key} .= "\t$file";
}, qw(/home/sites/lctc/doc_root))