#!/bin/env perl
use strict;
use warnings;

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

sub _create_first { print "first!\n"; }
sub _create_last { print "last!\n"; }

$dispatch{first}->();
$dispatch{last}->();

__DATA__
first!
last!
[download]

Update: Do you have a subroutine called _create_create_password?