Select Code to Download

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

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