Assuming 

sub print-with-suffix($what, :$suffix = "\n") {
    print $what, $suffix
}

print-with-suffix("test") xx 3;

my &print-with-comma = &print-with-suffix.assuming: :suffix(", ");

print-with-comma("test") xx 3;