sub find_deletion_candidates
{
   my %users=@_;
   use User::pwent;
   foreach(keys %users) {
      my %user=$_;
      my $pw=getpwnam($user{uname});
      my $homedir=$pw->dir;
   }
   # do bunch o' stuff I haven't coded yet
   return %users;
}
%users=find_deletion_candidates(%users);