From 721f3ed136759d2127f3b99e9a9fc052ab257cee Mon Sep 17 00:00:00 2001
From: namhsuya <ayushmaan.banerjee@gmail.com>
Date: Fri, 20 Oct 2017 14:16:21 +0530
Subject: [PATCH 1/4] Add is_palindrome.pl

Added Perl-script to find if a string is palindromic or not.
---
 is_palindrome/is_palindrome.pl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 is_palindrome/is_palindrome.pl

diff --git a/is_palindrome/is_palindrome.pl b/is_palindrome/is_palindrome.pl
new file mode 100644
index 000000000..354fa8779
--- /dev/null
+++ b/is_palindrome/is_palindrome.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+
+my $str;
+print "Enter a number/string to check if it's palindromic in nature: ";
+chomp ($str = <STDIN>);
+
+my $revStr = reverse $str;
+
+if(uc($revStr) ne uc($str)){
+  print "Not palindromic";
+}
+else{
+  print "Palindromic";
+}

From dc8cb51050e7bda7f7286a234025bac5f04cfcc8 Mon Sep 17 00:00:00 2001
From: namhsuya <ayushmaan.banerjee@gmail.com>
Date: Fri, 20 Oct 2017 14:24:52 +0530
Subject: [PATCH 2/4] delete is_palindrome.pl

adding subfolder
---
 is_palindrome/is_palindrome.pl | 14 --------------
 1 file changed, 14 deletions(-)
 delete mode 100644 is_palindrome/is_palindrome.pl

diff --git a/is_palindrome/is_palindrome.pl b/is_palindrome/is_palindrome.pl
deleted file mode 100644
index 354fa8779..000000000
--- a/is_palindrome/is_palindrome.pl
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/usr/bin/perl -w
-
-my $str;
-print "Enter a number/string to check if it's palindromic in nature: ";
-chomp ($str = <STDIN>);
-
-my $revStr = reverse $str;
-
-if(uc($revStr) ne uc($str)){
-  print "Not palindromic";
-}
-else{
-  print "Palindromic";
-}

From 951c74fdf2a56e2caead9ca1e5e49e9c5017d8a8 Mon Sep 17 00:00:00 2001
From: namhsuya <ayushmaan.banerjee@gmail.com>
Date: Fri, 20 Oct 2017 14:24:59 +0530
Subject: [PATCH 3/4] add perl folder, create is_palindrome.pl

Perl-script for checking palindrome
---
 is_palindrome/perl/is_palindrome.pl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 is_palindrome/perl/is_palindrome.pl

diff --git a/is_palindrome/perl/is_palindrome.pl b/is_palindrome/perl/is_palindrome.pl
new file mode 100644
index 000000000..64f738edb
--- /dev/null
+++ b/is_palindrome/perl/is_palindrome.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+
+my $str;
+print "Enter a number/string to check if it's palindromic in nature: ";
+chomp ($str = <STDIN>);
+
+my $revStr = reverse $str;
+
+if(uc($revStr) ne uc($str)){
+  print "Not palindromic";
+}
+else{
+  print "Palindromic";
+}

From c4fd24b29f2a7dfdfda8ee03301624993dc784e4 Mon Sep 17 00:00:00 2001
From: namhsuya <ayushmaan.banerjee@gmail.com>
Date: Fri, 20 Oct 2017 15:18:20 +0530
Subject: [PATCH 4/4] Create call_by_reference.pl

Added perl-script to show calling by reference in perl
---
 call_by_reference/perl/call_by_reference.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 call_by_reference/perl/call_by_reference.pl

diff --git a/call_by_reference/perl/call_by_reference.pl b/call_by_reference/perl/call_by_reference.pl
new file mode 100644
index 000000000..c94f078c4
--- /dev/null
+++ b/call_by_reference/perl/call_by_reference.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+
+my $num1 = 100;
+my $num2 = 5;
+
+sub swap{
+  $temp = $_[0];
+  $_[0] = $_[1];
+  $_[1] = $temp;
+  return;
+}
+
+print "Value of num1 BEFORE swap $num1\n";
+print "Value of num2 BEFORE swap $num2\n\n";
+
+swap($num1, $num2);
+
+print "Value of num1 AFTER swap $num1\n";
+print "Value of num2 AFTER swap $num2";