Shell Programming and Scripting

#use perl 5.8.5;
my %h1=(a=>'b', c=>'d');
my %h2=(a1=>'b1', c1=>'d1');
my $R1=\%h1;
my $R2=\%h2;
 
my %h= {$R1, $R2};
 
my $href=\%h; # hash of hashes
foreach my $key (keys %$href){
print "Z::$$href{$key}\n"
}

my %h= {$R1, $R2};

my %h= ('R1'=>$R1, 'R2'=>$R2);

foreach my $key (keys %$href){
print "Z::$$href{$key}\n"
}

for my $key1 (keys %$href){
  for my $key2 (keys %{$$href{key1}}{
    print $key2 . " => " . $href{$key1}{$key2} . "\n";
  }
}