@UserDirectorys = ();
opendir (DIR, "/user/");
  
  @UserDirectorys = grep {not /^(\.\.?)$/} // probably not the best way to do this
  readdir(DIR);
 
closedir (DIR);

foreach $USER ( @UserDirectorys ) {
@UserFiles = ();
opendir (DIR, "/user/$USER");
  
  @UserFiles =  readdir(DIR);
 
closedir (DIR);

# Search @UserFiles for files needed....
}