use warnings;
use strict;

use Data::Dumper;

my %d = map { $_, \&{'create_' . $_} } qw(first);

print Dumper \%d;

$d{first}->();

sub create_first {
    print "first!\n";
}