请教一个操作文件的问题

脚本如下：
open(G,"yao.txt");
while(<G>){
   print "$_\n";
}
my @a=<G>;
print "@a";
close G ;

请问为什么通过while循环后，这个@a数组就没有东西了呢？帮忙解答下，谢谢！

你都while过一遍了
文件指针已经到文件末尾了
你后面怎么还可能读到东西
可以重新open,或者seek到开头