even more fun with hashes

cli/hash_variables.pl

@@ -27,5 +27,21 @@ print "The mouse goes " . $petsounds{"mouse"} . ".\n";
 print Dumper(\%petsounds) . "\n";
 
 
+my %a = ();
+$a{1}{"a"}{"A"} = "FIRST";
+$a{1}{"c"}{"B"} = "THIRD";
+$a{1}{"b"}{"C"} = "SECOND";
+
+foreach my $k1 (sort keys %a) {
+    foreach my $k2 (sort keys %{$a{$k1}}) {
+        foreach my $k3 (sort keys %{$a{$k1}{$k2}}) {
+            print "$k1\t$k2\t$k3\t$a{$k1}{$k2}{$k3}\n";
+        }
+    }
+}
+
+print Dumper(\%a);
+
+
 1;
 __END__