I forgot the sorting!

1 files changed, 6 insertions, 1 deletions

diff --git a/challenge-161/julien-fiegehenn/perl/ch-1.pl b/challenge-161/julien-fiegehenn/perl/ch-1.pl
index ce487004a6..d6201f6e06 100644
--- a/challenge-161/julien-fiegehenn/perl/ch-1.pl
+++ b/challenge-161/julien-fiegehenn/perl/ch-1.pl
@@ -8,12 +8,17 @@ my @dictionary
   = do { open my $fh, '<', 'data/dictionary.txt' or die $!; <$fh>; };
 chomp @dictionary;
 
+my %words;
 WORD: for my $word (@dictionary) {
+  next if length $word < 2;
 
   # say $word if join(q{}, sort split //, $word) eq $word; ## this seems like the obvious solution
   my @letters = split //, $word;
   for my $i (0 .. $#letters - 1) {
     next WORD unless ord($letters[$i]) <= ord($letters[$i + 1]);
   }
-  say $word;
+  $words{$word} = length $word;
 }
+
+# hi, below empty deers cry most knotty eggs no apt gin.
+say for sort { $words{$b} <=> $words{$a} } keys %words; 
\ No newline at end of file