TT#69200 Use reverse in reversearray() instead of an ad-hoc implementation

Change-Id: I805e1e7e06b57774275353d1457ed37e5c78a13e
(cherry picked from commit fdc64d61eb)

lib/NGCP/BulkProcessor/Array.pm

@@ -104,17 +104,14 @@ sub grouparray {
 }
 
 sub reversearray {
+    my ($array_ptr) = @_;
 
-  my ($array_ptr) = @_;
-  my @result = ();
-  if (defined $array_ptr and ref $array_ptr eq 'ARRAY') {
-    my $ubound = (scalar @$array_ptr) - 1;
-    for (my $i = $ubound; $i >= 0; $i -= 1) {
-      $result[$i] = $array_ptr->[$ubound - $i];
+    my @result;
+    if (defined $array_ptr and ref $array_ptr eq 'ARRAY') {
+        @result = reverse @{$array_ptr};
     }
-  }
-  return \@result;
 
+    return \@result;
 }
 
 sub contains {