Merge pull request #2442 from vinodk89/master

Solutions for challenge 02

1 files changed, 22 insertions, 0 deletions

diff --git a/challenge-080/vinod-k/perl/ch-2.pl b/challenge-080/vinod-k/perl/ch-2.pl
new file mode 100644
index 0000000000..379ce31793
--- /dev/null
+++ b/challenge-080/vinod-k/perl/ch-2.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my @array = (1, 4, 3, 2);
+
+my $candies = scalar @array; 
+my $size    = $#array;
+
+foreach my $element (1..$size){
+    if($array[$element] > $array[$element - 1]){
+        $candies = $candies + 1;
+    }
+}
+
+foreach my $element (0..$size-1){
+    if($array[$element] > $array[$element + 1]){
+        $candies = $candies + 1;
+    }
+}
+print "Total candies: $candies\n";