在perl中，下面操作理解错误的是：

  foreach $rock (qw/ bedrock slate lava /){ 
  print “One rock is $rock.\n”;  
  } 
  #打印出 3种 rocks 

  @people = qw( fred barney betty ); 
  @sorted = sort @people; 
  $n = @sorted ; 
  #$n输出结果是barney , betty, fred 

  $email = “fred@bedrock.edu”; 
  #不输出@的email地址  转为被数组@bedrock替代 

  chomp (@lines = <STDIN>);  
  #读入所有的行， 不包括换行符