关于匿名hash的用法

我在一个子程序gethash 里会出现两个hash表：
my %aa = ('a' => 'apple', 'b' => 'bat', 'c' => 'cat');
my %ff = ('d' => 'apple1', 'b1' => 'bat1', 'c1' => 'cat1');

再合并到一个hash表里：
my %ss = ('s1' => \%aa, 's2' => \%ff );
然后返回

主程序：
my $dd = gethash()

由于子程序中%aa和%ff的键值是变化的，我现在想在主程序里得到%aa和%ff的键值，应该怎么做呢？

谢谢！！

一劳永逸的做法就是：
看精华区，或者看 perldoc perldsc

老大！可否给的连接？
我倒是学过匿名函数的引用

但这个从那看会好一点？

keys %{$ss{'s1'}} ;

好厉害！！！！
谢谢啦！


只不过我已经换了一种方法，就是key的地方换成序号了
懒得再改了，呵呵