From bc832b19dd7f9507b7c3b787959b8368c18fe7d9 Mon Sep 17 00:00:00 2001
From: Steven Wilson <steven1170@zoho.eu>
Date: Mon, 31 Jul 2023 21:52:59 +0100
Subject: small changes

---
 challenge-228/steven-wilson/perl/ch-02.pl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/challenge-228/steven-wilson/perl/ch-02.pl b/challenge-228/steven-wilson/perl/ch-02.pl
index 2af5a79c64..17b0e0689e 100644
--- a/challenge-228/steven-wilson/perl/ch-02.pl
+++ b/challenge-228/steven-wilson/perl/ch-02.pl
@@ -12,16 +12,15 @@ done_testing();
 sub empty_array {
     my @elements = @_;
     my $ops      = 0;
-    while ( @elements ) {
+    while (@elements) {
         if ( min(@elements) == $elements[0] ) {
             shift @elements;
-            $ops++;
         }
         else {
             my $element = shift @elements;
             push @elements, $element;
-            $ops++;
         }
+        $ops++;
     }
     return $ops;
 }
-- 
cgit