sub print_me ($arg = "Hello World!\n") {
    print $arg;
}

%hash = (
    no_arg   => &print_me,
    with_arg => &print_me.assuming(arg => "Hello World, again!\n")
);

%hash{no_arg}();