my %dispatch = map { $_, \&{$_} } qw(first last user_id email create_password);

##</code><code>##

my %dispatch = map { $_, \&{'_create_' . $_} } qw(first last user_id email create_password);