foreach my $key1 ( sort keys %hash){
    foreach my $key2 ( sort keys %{$hash{$key1}){
        foreach my $key2 ( sort keys %{$hash{$key1}{$key2} ){          
        }
   }
}