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

 
  
  1. sub greet{ 
  2.     @greet_list; 
  3.     my $len; 
  4.     print "Hi $_[0]! "; 
  5.      
  6.     push @greet_list , $_[0]; 
  7.  
  8.     $len = @greet_list; 
  9.  
  10.     if($len == 1){ 
  11.         print "You are the first one here!\n"; 
  12.     }else{ 
  13.         print @greet_list[$len-2]." is also here!\n"; 
  14.     } 
  15.      
  16. } 
  17.  
  18. greet(jason); 
  19. greet(tom); 
  20. greet(herry);