sub find_deletion_candidates
{
   my $users=shift;
   my %users = %{$users}
   #etc
}