From 62decd00f202639a773c3d2e5ed5d310663dfc24 Mon Sep 17 00:00:00 2001
From: andrezgz <andrezgz@gmail.com>
Date: Thu, 5 Sep 2019 20:05:47 -0300
Subject: challenge-024 ch-2 fix

---
 challenge-024/andrezgz/perl5/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-024/andrezgz/perl5/ch-2.pl b/challenge-024/andrezgz/perl5/ch-2.pl
index bfa208c451..49aa67a02a 100644
--- a/challenge-024/andrezgz/perl5/ch-2.pl
+++ b/challenge-024/andrezgz/perl5/ch-2.pl
@@ -35,7 +35,7 @@ print "\nSearch word: ";
 my $w = <>;
 chomp $w;
 if ( exists $index{lc $w} ) {
-    print "'$w' was found on ", join(',',keys $index{lc $w}) . "\n";
+    print "'$w' was found on ", join(',',keys %{$index{lc $w}}) . "\n";
 }
 else {
     print "'$w' wasn't found on any document\n";
-- 
cgit