From：
Perl split字符串分割函数用法指南_perl_脚本之家 http://www.jb51.net/article/33924.htm

• my @array = split("\t",$_); my $var = $array[6]; # 测试文件平均用时8.2s  
• my($var) = (split("\t",$_))[6];  # 测试平均用时5.1s  
• my(undef,undef,undef,undef,undef,undef,$var) = split("\t",$_); # 平均用时3.53s  
• my(undef,undef,undef,undef,undef,undef,$var) = split("\t",$_,7); # 平均用时3.52s  
• my $var = (split("\t",$_,7))[6]; # 平均用时3.53s