Extract sort / lc op to function

1 files changed, 4 insertions, 2 deletions

diff --git a/challenge-005/john-barrett/perl5/ch-1.pl b/challenge-005/john-barrett/perl5/ch-1.pl
index 0e920a4011..f1dfd6309e 100755
--- a/challenge-005/john-barrett/perl5/ch-1.pl
+++ b/challenge-005/john-barrett/perl5/ch-1.pl
@@ -4,13 +4,15 @@ use strict;
 use warnings;
 use autodie;
 
-my $word = join '', sort { $a cmp $b } split '', lc $ARGV[0];
+my $word = sortedlc( $ARGV[0] );
 my $wordlength = length $word;
 
+sub sortedlc { join '', sort { $a cmp $b } split '', lc $_[0] }
+
 sub is_anagram {
     my ( $dictword ) = @_;
     return 0 if length $dictword != $wordlength;
-    $word eq join '', sort { $a cmp $b } split '', lc $dictword;
+    $word eq sortedlc $dictword;
 }
 
 open my $fh, '<:encoding(UTF-8)', '/usr/share/dict/words';