Little typo fixes and cleanup

2 files changed, 2 insertions, 3 deletions

diff --git a/challenge-123/perlboy1967/perl/ch-1.pl b/challenge-123/perlboy1967/perl/ch-1.pl
index d00b756dcd..4789edf5cb 100755
--- a/challenge-123/perlboy1967/perl/ch-1.pl
+++ b/challenge-123/perlboy1967/perl/ch-1.pl
@@ -40,7 +40,7 @@ foreach my $t (@$tests) {
 done_testing();
 
 #
-# Blatenly 'borrowed' solution using Dynamic Programming from:
+# Blatently 'borrowed' solution using Dynamic Programming from:
 # https://www.codesdope.com/blog/article/ugly-numbers/
 #
 sub uglyNumberN($) {
diff --git a/challenge-123/perlboy1967/perl/ch-2.pl b/challenge-123/perlboy1967/perl/ch-2.pl
index 89046a2c56..2b8d16136d 100755
--- a/challenge-123/perlboy1967/perl/ch-2.pl
+++ b/challenge-123/perlboy1967/perl/ch-2.pl
@@ -11,8 +11,7 @@ use v5.16;
 use strict;
 use warnings;
 
-use List::MoreUtils qw(frequency slide);
-use Data::Printer;
+use List::MoreUtils qw(frequency);
 
 use Test::More;