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