foreach my $k1 (keys %hash){
  foreach my $k2 (keys %hash{$k1}){
...
  }
}