sub process_users(
    my $result_ref = shift;
    # dereference it if needed
    foreach my $key ( %$result_ref ){
    ...
)