判断来访的人是不是第一个，如果是第一个则输出您是第一个，否则输出他的前一个人

 
 

sub greet{ 
  
  
    @greet_list; 
  
  
    my $len; 
  
  
    print "Hi $_[0]! "; 
  
  
     
  
  
    push @greet_list , $_[0]; 
  
  
 
  
  
    $len = @greet_list; 
  
  
 
  
  
    if($len == 1){ 
  
  
        print "You are the first one here!\n"; 
  
  
    }else{ 
  
  
        print @greet_list[$len-2]." is also here!\n"; 
  
  
    } 
  
  
     
  
  
} 
  
  
 
  
  
greet(jason); 
  
  
greet(tom); 
  
  
greet(herry);