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

sub print_all {
  foreach (@_) {
    print "$_\n";
  }
}