# simple recursive sub sub create_users { my $user_href = shift; my $userId = shift; if(defined $user_href->{$userId} and $user_href->{$userId} != 0) { create_users($user_href, $userId); } else { return; } # now write the user to the db write_user_to_db($user_href, $userId }