2 files changed, 3 insertions, 3 deletions
diff --git a/challenge-307/steven-wilson/perl/ch-1.pl b/challenge-307/steven-wilson/perl/ch-1.pl
index 9c50d392db..452ffb9c67 100644
--- a/challenge-307/steven-wilson/perl/ch-1.pl
+++ b/challenge-307/steven-wilson/perl/ch-1.pl
@@ -1,12 +1,11 @@
 #!/usr/bin/env perl
 
-use strict;
 use v5.35;
 use Test2::Bundle::More;
 
 sub checkOrder {
     my @ints = @_;
-    my @sorted_ints = sort @ints;
+    my @sorted_ints = sort { $a <=> $b } @ints;
     return grep {  $ints[$_] != $sorted_ints[$_]  } 0..scalar @ints - 1;
 }
 
diff --git a/challenge-307/steven-wilson/perl/ch-2.pl b/challenge-307/steven-wilson/perl/ch-2.pl
index 6d488525e1..68a4819a5c 100644
--- a/challenge-307/steven-wilson/perl/ch-2.pl
+++ b/challenge-307/steven-wilson/perl/ch-2.pl
@@ -1,8 +1,9 @@
 #!/usr/bin/env perl
 
-use strict;
 use v5.35;
 use Test2::Bundle::More;
+use Memoize;
+memoize('sortString');
 
 sub findAnagrams {
     my @words = @_;