Simplified solution

1 files changed, 1 insertions, 3 deletions

diff --git a/challenge-209/wlmb/perl/ch-2.pl b/challenge-209/wlmb/perl/ch-2.pl
index 50a270aecd..1210214470 100755
--- a/challenge-209/wlmb/perl/ch-2.pl
+++ b/challenge-209/wlmb/perl/ch-2.pl
@@ -14,9 +14,7 @@ while(<>){
     $names[$INPUT_LINE_NUMBER] = $name;
     for(@addresses){
 	$merge_to{$INPUT_LINE_NUMBER} =
-	    defined $merge_to{$line_of{$_}}
-	        ?$merge_to{$line_of{$_}}          # previously merged
-	        :$line_of{$_}                     # or first time merge
+	        $merge_to{$line_of{$_}}           # previously merged or undef
             if defined $line_of{$_};              # address has been seen before
         $line_of{$_}//=$INPUT_LINE_NUMBER;        # map to current line if not seen before
     }