RosettaCodeData/Task/Variadic-function/Perl/variadic-function-5.pl

sub print ($x, $y) {
    say $x, "\n", $y;
}