数组调试和打印的信息不一致

pidan

===Start to Replace EntityID of SPMEntityIns Table===
main::deal_SPMEntityIns(./mkpkg:4200):
4200:                                print $SpmEntityInsArray[1][1]." EntityID===\r\n";
  DB<2> pinr^H^H
Unrecognized character \x08 at (eval 73)[/usr/lib/perl5/5.8.8/perl5db.pl:628] line 2.
at (eval 73)[/usr/lib/perl5/5.8.8/perl5db.pl:628] line 2
        eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package main; $^D = $^D | $DB::db_stop;
pi;r

;' called at /usr/lib/perl5/5.8.8/perl5db.pl line 628
        DB::eval called at /usr/lib/perl5/5.8.8/perl5db.pl line 3412
        DB:B called at ./mkpkg line 4200
        main::deal_SPMEntityIns('/home/pengwei/tool/baseinfo.xml') called at ./mkpkg line 4236

  DB<3> pirn

  DB<4> print $SpmEntityInsArray

  DB<5> ^[[A^[[A^[[B
Unrecognized character \x1B at (eval 76)[/usr/lib/perl5/5.8.8/perl5db.pl:628] line 2.
at (eval 76)[/usr/lib/perl5/5.8.8/perl5db.pl:628] line 2
;       eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package main; $^D = $^D | $DB::db_stop;

;' called at /usr/lib/perl5/5.8.8/perl5db.pl line 628
        DB::eval called at /usr/lib/perl5/5.8.8/perl5db.pl line 3412
        DB:B called at ./mkpkg line 4200
        main::deal_SPMEntityIns('/home/pengwei/tool/baseinfo.xml') called at ./mkpkg line 4236

  DB<6> print $SpmEntityInsArray[1]
ARRAY(0x8f2ae70)
  DB<7> print $SpmEntityInsArray[1][0]
lam
  DB<8> print $SpmEntityInsArray[1][1]
88
  DB<9> n
EntityID===
main::deal_SPMEntityIns(./mkpkg:4201):
4201:                                if ( $SpmEntityInsArray[$j][0] eq $CpgName )
4202:                                {

cobrawgl

我这里好好的啊