Select Code to Download

#!/usr/bin/perl

use strict;
...
        print "${outter}::$inner = $HoH{$outter}{$inner}\n";
    }
}

$ perl ./x.pl
www::wee = 0
www::wwe = 1
www::wte = 2

#!/usr/bin/perl

...
{
    print( (join '::', @$_), ' = ', $HoH{$_->[0]}{$_->[1]}, "\n");
}

$ perl ./x.pl
www::wee = 0
www::wwe = 11
zzz::zze = 15
www::wte = 21