foreach my $key1 (keys %{$a{key1}...})
{
my $level1=$a{key1}{$key1};
 foreach my $key2 (keys %{$level1->{key2}})
 {
  ...
 }
}