Initial data commit

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

@@ -0,0 +1,5 @@
+sub print_all {
+  foreach (@_) {
+    print "$_\n";
+  }
+}

Task/Variadic-function/Perl/variadic-function-2.pl

@@ -0,0 +1,3 @@
+print_all(4, 3, 5, 6, 4, 3);
+print_all(4, 3, 5);
+print_all("Rosetta", "Code", "Is", "Awesome!");

Task/Variadic-function/Perl/variadic-function-3.pl

@@ -0,0 +1,2 @@
+@args = ("Rosetta", "Code", "Is", "Awesome!");
+print_all(@args);

Task/Variadic-function/Perl/variadic-function-4.pl

@@ -0,0 +1,2 @@
+use 5.020;
+use experimental 'signatures';

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

@@ -0,0 +1,3 @@
+sub print ($x, $y) {
+    say $x, "\n", $y;
+}

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

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