Added the second challenge

1 files changed, 31 insertions, 0 deletions

diff --git a/challenge-163/luiz-felipe/perl/ch-2.pl b/challenge-163/luiz-felipe/perl/ch-2.pl
new file mode 100644
index 0000000000..be187bbc8e
--- /dev/null
+++ b/challenge-163/luiz-felipe/perl/ch-2.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use feature 'say';
+
+my (@numbers);
+
+@numbers = @ARGV or die "you need to pass the numbers to the script";
+
+say "The sum of these numbers is ", summations(@numbers);
+
+sub summations {
+	my (@numbers, $sum);
+
+	@numbers = @_;
+
+	while (scalar @numbers != 1) {
+		my (@summations, $sum);
+
+		$sum = 0;
+		foreach my $i (1..$#numbers) {	
+			$sum += $numbers[$i];
+			push @summations, $sum;
+		}
+
+		@numbers = @summations;
+	}
+
+	return $numbers[0];
+}