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

sub print_many ($first, $second, @rest) {
    say "First: $first\n"
       ."Second: $second\n"
       ."And the rest: "
       . join("\n", @rest);
}