sub coru_excel {
    my(%pushed_hash,$filename) = @_;
    print Dumper(%pushed_hash);
}

但似乎数据正在变得混乱.转储的数据还包括$filename.这是输出.

...................
$VAR7 = 'Address';
$VAR8 = [
          '223 VIA DE
................
        ];
$VAR9 = 'data__a.xls'     <----- $filename
$VAR10 = undef;
$VAR11 = 'DBA';
$VAR12 = [
           'J & L iNC
..................
         ];

以下是我调用子程序的方法.

coru_excel(%hash,"data_".$first."_".$last.".xls");