sub make_print_ref {
    my ($parameter) = @_;
    return sub { print $parameter };
};

my $print_ref = make_print_ref(...);