perl读excel的例子，有一个地方整不明白了，请朋友帮忙

下面是一段读excel的例子，网上有类似的例子，我只是简单的调整了一下，代码中我涂红的地方，是打印出某一行的记录，我想把这条记录赋值给一个变量，然后分解后，存入到数据库中，因为是“新司机”，实在是不知道，怎么才能把那条记录赋值给一个变量，还请朋友们赐教一二，再或者，我想将循环得到的记录入库，是不是直接就可以分解或者直接赋值给某些变量，然后直接入库


#!usr/bin/perl
use strict;
use warnings;
use Win32::OLE;    #导入win32 OLE包


my $dir = 'D:\\myperl\\win32ole\\';
my $src_name = $dir."test1"."\.xls";
my $nowstr;
#新建一个EXCEL应用对象，然后我们就可以对excel进行操作。
my $app_xls = Win32::OLE->new('Excel.Application', sub{$_[0]->Quit}) or die"Can't install Excel01!";
#打开一个EXCEL文件，'True' 表示是只读
my $src_book = $app_xls->WorkBooks->Open($src_name, 0, 'True');
my $src_sheet = $src_book->Worksheets(1); #选中一工作表
my $row_counts= $src_sheet->{UsedRange}->{Rows}->{Count};   #   得到行数
my $column_counts = $src_sheet->{UsedRange}->{Columns}->{Count}; #   得到列数
#print "$column_counts \n";
#print "$row_counts \n";
my $row;
my $col;
for( $row=1;$row<=$row_counts;$row++)
{
   for( $col=1;$col<=$column_counts;$col++)
   {
    #printf "%s ",
    print $src_sheet->Cells($row,$col)->{'Value'}." "
   
   }
print "\n";
}

undef $src_book;
undef $app_xls;   #关掉所打开的excel应用

基本解决
#!usr/bin/perl
use strict;
use warnings;
use Win32::OLE;    #导入win32 OLE包


my $dir = 'D:\\myperl\\win32ole\\';
my $src_name = $dir."test1"."\.xls";
my $nowstr;
#新建一个EXCEL应用对象，然后我们就可以对excel进行操作。
my $app_xls = Win32::OLE->new('Excel.Application', sub{$_[0]->Quit}) or die"Can't install Excel01!";
#打开一个EXCEL文件，'True' 表示是只读
my $src_book = $app_xls->WorkBooks->Open($src_name, 0, 'True');
my $src_sheet = $src_book->Worksheets(1); #选中一工作表
my $row_counts= $src_sheet->{UsedRange}->{Rows}->{Count};   #   得到行数
my $column_counts = $src_sheet->{UsedRange}->{Columns}->{Count}; #   得到列数
print "$column_counts \n";
print "$row_counts \n";
my $row;
my $col;
my @nowstr;
my $vol;
for( $row=1;$row<=$row_counts;$row++)
{
   for( $col=1;$col<=$column_counts;$col++)
   {
    #printf "%s ",
    $nowstr[$column_counts-1] = $src_sheet->Cells($row,$col)->{'Value'};
    #$nowstr = $src_sheet->Cells(1,'A')->{Value};
    #print $nowstr[$column_counts-1];
    $vol = $vol." ".$nowstr[$column_counts-1]
   }
   print $vol;
   $vol="";
print "\n";
}

undef $src_book;
undef $app_xls;   #关掉所打开的excel应用