From 93cfa65b3e9135eb750b5816442c61c92b718974 Mon Sep 17 00:00:00 2001
From: Dan Buch <daniel.buch@gmail.com>
Date: Wed, 5 Jan 2011 21:21:00 -0500
Subject: [PATCH] even more fun with hashes

---
 cli/hash_variables.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/cli/hash_variables.pl b/cli/hash_variables.pl
index 32241c0..4ee1a84 100644
--- a/cli/hash_variables.pl
+++ b/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__