- Tidied up Perl solutions.

2 files changed, 6 insertions, 6 deletions

diff --git a/challenge-071/mohammad-anwar/perl/ch-1.pl b/challenge-071/mohammad-anwar/perl/ch-1.pl
index 0d8c4b2c0d..b47396adf2 100755
--- a/challenge-071/mohammad-anwar/perl/ch-1.pl
+++ b/challenge-071/mohammad-anwar/perl/ch-1.pl
@@ -12,17 +12,17 @@ use strict;
 use warnings;
 
 my $N = $ARGV[0] || 10;
-my $array = get_random_array($N);
-my $peak_elements = get_peak_elements($array);
+my $random_array  = get_random_array($N);
+my $peak_elements = find_peak_elements_in($random_array);
 
-print sprintf("Array: [%s]\n", join(", ", @$array));
+print sprintf("Array: [%s]\n", join(", ", @$random_array));
 print sprintf(" Peak: [%s]\n", join(", ", @$peak_elements));
 
 #
 #
 # METHODS
 
-sub get_peak_elements {
+sub find_peak_elements_in {
     my ($array) = @_;
 
     my @peak_elements = ();
diff --git a/challenge-071/mohammad-anwar/perl/ch-1a.pl b/challenge-071/mohammad-anwar/perl/ch-1a.pl
index 69dac1ba4a..fc7c0a543a 100755
--- a/challenge-071/mohammad-anwar/perl/ch-1a.pl
+++ b/challenge-071/mohammad-anwar/perl/ch-1a.pl
@@ -31,7 +31,7 @@ my %test_cases = (
 
 foreach my $test (sort keys %test_cases) {
     is_deeply(
-        get_peak_elements($test_cases{$test}->{in}),
+        find_peak_elements_in($test_cases{$test}->{in}),
         $test_cases{$test}->{out},
         $test
     );
@@ -43,7 +43,7 @@ done_testing;
 #
 # METHOD
 
-sub get_peak_elements {
+sub find_peak_elements_in {
     my ($array) = @_;
 
     my @peak_elements = ();