Merge branch 'master' of https://github.com/manwar/perlweeklychallenge-club

1 files changed, 5 insertions, 5 deletions

diff --git a/challenge-189/mohammad-anwar/perl/ch-1.pl b/challenge-189/mohammad-anwar/perl/ch-1.pl
index bd061f7b07..8b8ddbcee1 100644
--- a/challenge-189/mohammad-anwar/perl/ch-1.pl
+++ b/challenge-189/mohammad-anwar/perl/ch-1.pl
@@ -18,11 +18,11 @@ Task #1: Greater Character
 use v5.36;
 use Test2::V0;
 
-is greater_character('b', qw/e m u g/, 'b'), 'e', 'Example 1';
-is greater_character('a', qw/d c e f/, 'a'), 'c', 'Example 2';
-is greater_character('o', qw/j a r/  , 'o'), 'r', 'Example 3';
-is greater_character('a', qw/d c a f/, 'a'), 'c', 'Example 4';
-is greater_character('v', qw/t g a l/, 'v'), 'v', 'Example 5';
+is greater_character('b', qw/e m u g/), 'e', 'Example 1';
+is greater_character('a', qw/d c e f/), 'c', 'Example 2';
+is greater_character('o', qw/j a r/  ), 'r', 'Example 3';
+is greater_character('a', qw/d c a f/), 'c', 'Example 4';
+is greater_character('v', qw/t g a l/), 'v', 'Example 5';
 
 done_testing;