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

##</code><code>##

my $users = { %some_complicated_hash };
find_deletion_candidates($users);