#!/usr/bin/perl

use strict;
use warnings;

my %HoH = ( www => { wwe => 1, wte => 2, wee => 0} );

for my $outter (sort keys %HoH)
{
    for my $inner (sort { $HoH{$outter}{$a} <=> $HoH{$outter}{$b} } keys %{$HoH{$outter}})
    {
        print "${outter}::$inner = $HoH{$outter}{$inner}\n";
    }
}