foreach my $function (<DATA>) {
    no strict refs;
    chomp $function;
    *$function = sub { print "$function : @_\n"; };
}

mink(12);
go('somewhere');
monk(8);

__DATA__
mink
go