Select Code to Download

sub process_users(
    my $result_ref = shift;
...
    foreach my $key ( %$result_ref ){
    ...
)