Perlでの多層ハッシュの逆参照

％spec_hashを逆参照できませんマルチレベルハッシュですか？

#!/perl/bin/perl
use FOOConf; #custom module 
use Data::Dumper ;
FOOConf::makeDBConnection(production);
use strict; 
use warnings; 

my $dbh=$EVTConf::dbh;
my $query = "select e_risk_symbol from gsd_etds where level_name='EXCH_CS' and e_exch_dest='XISX' and e_symbol_comment in ('Bin_6','Bin_56')";

if(!$dbh) {
    print "Error connecting to DataBase; $DBI::errstr\n";
    }  
    my $cur_msg = $dbh->prepare($query) or die "\n\nCould not prepare statement:".$dbh->errstr;
    $cur_msg->execute();
    while (my @row=$cur_msg->fetchrow_array) {
           $spec_hash{'XISX'}{$row[0]}=1;
           }

    while(($key,$value) = each(%spech_hash)) {
        print $key. "," .$value ;
        }

私はハッシュに何が入っているのかを見ることができます：

#!/perl/bin/perl
use strict; 
use warnings ; 
use FOOConf; # custom module we use for db access. 
FOOConf::makeDBConnection(production); # amkes a database connection. 
my $dbh=$EVTConf::dbh;
my $query = "select e_risk_symbol from gsd_etds where level_name='EXCH_CS' and e_exch_dest='XISX' and e_symbol_comment in ('Bin_6','Bin_56')";

if(!$dbh) {
    print "Error connecting to DataBase; $DBI::errstr\n";
    }
    my $cur_msg = $dbh->prepare($query) or die "\n\nCould not prepare statement:".$dbh->errstr;
    $cur_msg->execute();
    while (my @row=$cur_msg->fetchrow_array) {
          foreach $row(@row) {
          print "$row ";
          }
    }

     print "\n";

これは私が得るものです;

MTG GPS WM JBL ISIL MBI BA ILMN FCEL NDAQ CMS HOLX
INTC CYBX STLD MDT CTSH ASBC AMP KLAC LXK X MON 
SYY HIG UNM AMGN STZ KMP SONC ECA BEBE EAT PLCE 
SPN LAMR PDCO XLP GME CSGP EXC BHP

@row配列をウォークスルーすることで、$ spec_hashに何がロードされているかを確認でき、％spec_hashをダンプできます。

    while (my @row=$cur_msg->fetchrow_array) {
           $spec_hash{'XISX'}{$row[0]}=1;
           }

           print Dumper(%spec_hash)

ダンプにはXISXがあり、ハッシュの名前とFCELはハッシュXISXのキーであり、キーFCELの値は1です。

foo@fooserver:/tmp/walt $ ./just_db.row.dumper
$VAR1 = 'XISX';
$VAR2 = {
          'FCEL' => 1,
          'GPS' => 1,  
          'MCO' => 1,
          'DPZ' => 1,
          'WM' => 1,
          'SPLS' => 1,
          'ILMN' => 1,
          'BWLD' => 1,
          'CTSH' => 1,
          'EWU' => 1,
          'MDVN' => 1,
          'PDCO' => 1,
          'AFAM' => 1,
          'SHW' => 1,

逆参照できません

 "$spec_hash{'XISX'}{$row[0]}=1;" 

このハッシュがロードされる方法について私が理解していないことがあります。