my %dispatch = ( first => \&_create_first, last => \&_create_last, user => \&_create_user, id => \&_create_id, email => \&_create_email, create_password => \&_create_create_password, ); #### $ perl -E 'use strict; use warnings; my %d = ( foo => \&foo ); say "OK"' OK