sub newprint {
    my $x = shift;
    return sub { my $y = shift; print "$x, $y\n"; };
}

$h = newprint("Howdy");
$g = newprint("Greetings");

&$h("world");
&$g("earthlings");