如果你想要整个结构，使用核心Data::Dumper模块。

use strict;
use warnings;

use Data::Dumper;

my %hash;
$hash{1}{1} = 2;

print Dumper( \%hash );

输出：

$VAR1 = {
          '1' => {
                   '1' => 2
                 }
        };

如果你想在Perl中使用嵌套结构（超越任何琐碎的事情），你需要学习 references。如果你熟悉指针，那么你已经完成了一半。
最好的资源在官方文档中：

• Perl reference tutorial
• Perl arrays of arrays
• Perl data structures cookbook

这是错误的
它应该是$dict{'one'}=1;
您应该拥有类似下面的内容。警告：这是未经测试的代码，但你明白我想说的：

#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my %dict;
$dict{'1'}{'1'}=2;
$dict{'2'}{'2'}=3;

#print Dumper(\%dict);

foreach my $keys ( keys %dict )
{
    print "$keys : ";
    foreach my $keys2 ( keys %{ $dict{keys} } )
    {
        print "$keys2 = $dict{keys}{$keys2} \n" ;
    }
    print "\n";
}

这是我的解决方案。您可以浏览hash或array或hash + array

#!/usr/bin/perl

%foo = (
    flintstones => { 
        husband => "fred", 
        pal => "barney", 
    }, 
    jetsons => { 
        husband => [ 
            11, 
            { 
                aa => 100, 
                bb => [ 200, 201, 202 ], 
                cc => 300 
            }, 
            33 
        ], 
        wife => "jane", 
        "his boy" => "elroy",
    }, 
    simpsons => { 
        husband => "homer", 
        wife => "marge", 
        kid => "bart", 
    },
);

sub walk_hash {
    my ($hash, $name) = @_;
    while (my ($key, $value) = each (%{$hash}))
    {
        if (ref $value eq 'HASH') {
            walk_hash($value, $name . "{" . $key . "}");
        } elsif (ref $value eq 'ARRAY') {
            walk_array($value, $name . "{" . $key . "}");
        } else {
            print $name . "{" . $key . "} = $value\n";
        }
    }
}

sub walk_array {
    my ($array, $name) = @_;
    for (my $i = 0; $i <= $#{$array}; $i++)
    {
        if (ref $$array[$i] eq 'HASH') {
            walk_hash($$array[$i], $name . "[" . $i . "]");
        } elsif (ref $$array[$i] eq 'ARRAY') {
            walk_array($$array[$i], $name . "[" . $i . "]");
        } else {
            print $name . "[" . $i . "] = $$array[$i]\n";
        }
    }
}

walk_hash(\%foo, '%foo');

输出：

bash$ ./test.pl 
%foo{flintstones}{pal} = barney
%foo{flintstones}{husband} = fred
%foo{jetsons}{his boy} = elroy
%foo{jetsons}{wife} = jane
%foo{jetsons}{husband}[0] = 11
%foo{jetsons}{husband}[1]{aa} = 100
%foo{jetsons}{husband}[1]{bb}[0] = 200
%foo{jetsons}{husband}[1]{bb}[1] = 201
%foo{jetsons}{husband}[1]{bb}[2] = 202
%foo{jetsons}{husband}[1]{cc} = 300
%foo{jetsons}{husband}[2] = 33
%foo{simpsons}{kid} = bart
%foo{simpsons}{husband} = homer
%foo{simpsons}{wife} = marge