读excel入库时后的问题

excel有5列，分别是a,b,c,d,e，其中c列有些是空的，有些是有数据的，我用perl读这个excel，入库，就出现串行的问题

比如：excel的格式及数据如下：
a        b        c        d        e
1        2        3        4        5
1        2                4        5
1        2                4        5
1        2        3        4        5
1        2                4        5
1        2        3        4        5

我数据中有张表t_test，表结构跟上面一样，可是我的perl程序，读玩excel入库以后，就是如下造型：
a        b        c        d        e
1        2        3        4        5
1        2        4        5       
1        2        4        5       
1        2        3        4        5
1        2        4        5       
1        2        3        4        5
请问，怎么才能正常入库呢？
部分代码如下：
for( $row=4;$row<=$row_counts;$row++)
{
   for( $col=1;$col<=$column_counts;$col++)
   {
    $nowstr[$column_counts-1] = $src_sheet->Cells($row,$col)->{'Value'};
    $vol = $vol." ".$nowstr[$column_counts-1]
   }
   
    @home=split(" ",$vol);
      if(@home ne ""){
          my $sql = $dbh ->prepare("insert into test(A,B,C,D,E) values (?,?,?,?,?)");
          $sql ->execute($home[0],$home[1],$home[2],$home[3],$home[4],$home[5]);   
                    }
    $vol="";
}

@home=split(" ",$vol); 这个地方出问题了...
建议你用个array将每一行数值存起来..包含空的...
将那个array的reference存入另一个array..
最後用$ary[0]->[0]提取第一行第一个....以此类推...