perl访问文件并存入数组

#!/usr/bin/perl
# print file1.txt 参数
# print 开始循环文件file1.txt
use strict;
#1.从用例中获取配置文件数据
open (FH,"<testcase");
  my $line;
  #my %hash;
  my @num; #定义的一维数组
  my @value;#定义的二维数组
  my $temp;
  my $length;
  my $linenumber=1;
  #循环文件
  while ( $line = readline FH ) {
      #退出条件
    unless ( defined $line ) {
       next if eof;
       die $! if $!;
    }
    #print $line;
    $length=split(/:/,$line); #这样得到的是分割的次数
    @num=split(/:/,$line);#这样得到的是分割后的数组内容
    #print @num;
    for ($temp=0;$temp<$length ;$temp++) {
        $value[$linenumber][$temp]=$num[$temp];#将一维数组的值存储到二维数组
        #print $num[$temp]."$num[$temp]\n";
        #print $value[$linenumber][$temp]."$value[$linenumber][$temp]\n";
    }    
    $linenumber++;
    #print "循环到文件的第$linenumber行\n";
  }
 close FH;



#使用下标遍历
for my $i(0..$#value){  
for my $j(0..$#{$value[$i]}){  
print"数组的第$i 行第 $j 列$value[$i][$j]\n";  
}  
}