manwar
diff --git a/‎challenge-003/sergiotarxz/ch-1.pl ‎challenge-003/sergiotarxz/perl5/ch-1.pl
+2-2 b/‎challenge-003/sergiotarxz/ch-1.pl ‎challenge-003/sergiotarxz/perl5/ch-1.pl
+2-2
diff --git a/‎challenge-003/sergiotarxz/ch-2.pl ‎challenge-003/sergiotarxz/perl5/ch-2.pl b/‎challenge-003/sergiotarxz/ch-2.pl ‎challenge-003/sergiotarxz/perl5/ch-2.pl
@@ -1,9 +1,9 @@
 use v5.28;
 my @a = (2,3,5);
-for my $i (1..$ARGV[0]) {
+for (my $i=1; $i<$ARGV[0]; $i++) {
     my $a = $i;
     for (@a) {
-        $a/=$_ while $a%$_==0; 
+        $a/=$_ until $a%$_;
     }
     $a==1 and say $i;
 }
Original file line number	Diff line number	Diff line change
`@@ -1,9 +1,9 @@`
`1`	`1`	`use v5.28;`
`2`	`2`	`my @a = (2,3,5);`
`3`		`-for my $i (1..$ARGV[0]) {`
	`3`	`+for (my $i=1; $i<$ARGV[0]; $i++) {`
`4`	`4`	`my $a = $i;`
`5`	`5`	`for (@a) {`
`6`		`- $a/=$_ while $a%$_==0;`
	`6`	`+ $a/=$_ until $a%$_;`
`7`	`7`	`}`
`8`	`8`	`$a==1 and say $i;`
`9`	`9`	`}`