perl - сравнение двух строк, один параметр подпрограммы

Question

Я пытаюсь работать через то, что должно быть простым упражнением, и с этим я столкнулся с проблемой сравнения двух строк (один в массиве, а другой - как функция). В частности, линия:

if ($el eq $iName) 

не возвращается 1, даже если две строки равны.

Я поместил некоторые строки отладки над этой частью кода, чтобы увидеть, что является значением этого булева, и кажется, что это undef.

#!/usr/bin/perl -w 

use v5.14.0; 


sub greet { 
    #early example - no hashes, 

    #if first ever name print the name, 
    #if not first and not previously seen, print previous names, 
    #if same name as one previous, acknowledge this and print previous names 

    my $iName = $_[0]; 
    state @seen_names; 

    if (!@seen_names) { 
     print "Hello $iName\n"; 
     push @seen_names, "$iName "; 
    } else { 
     my $push_name = 0; 
     foreach my $el (@seen_names) { 

#------------------------DEBUG----------- 
     print "equal? ", ("$el" eq "$iName"), "----\n"; #debug - the boolean looks undef 
     print "equal? ", ("$el" eq undef), "----\n"; #debug 
     print "equal? ", ("a" eq "a"), "----\n"; #debug 
#------------------------DEBUG----------- 

      if ($el eq $iName) { #debug - do not get into this if 
       #FIXME prints *all* names, including this one. 
       print "hello again $iName, all visitors so far: " , @seen_names, "\n"; 
      } else { 
       print "hello $iName, all visitors so far: @seen_names.\n"; 
       $push_name = 1; 
      } 
     } 
     if ($push_name) { 
      push @seen_names, "$iName "; 
     } 
    } 
} 

&greet ("Greg"); 
&greet ("Greg"); 
#&greet ("Bob"); 
#&greet ("James"); 
#&greet ("Jill"); 

Куда я иду не так?

Answer 1

Решение этой проблемы заключается в решении следующей ошибки, то есть, я заселение @seen_names через:

push @seen_names, "$iName "; 

все же $ iName в

if ($el eq $iName) 

не имеет места в этом; следовательно, if всегда будет терпеть неудачу.