http://www.perlmonks.org?node_id=1008547


in reply to Hashes... Light switch isn't coming on

foreach $primary( @primary )
{
    print "\t$primary\n";

    foreach $secondary( @secondary )
    {
        print "\t\t$secondary\n";

        foreach $tertiary( @tertiary )
        {
            print "\t\t\t$tertiary\n";

            #%HoH = ( $primary => $secondary => $tertiary);
            #%HoH = {$primary}{$secondary} => $tertiary);
            # 
            $HoH{$primary} -> {$secondary} = [] 
                   unless ref($HoH{$primary} -> {$secondary}) eq 'ARRA
+Y';
            push @{$HoH{$primary} -> {$secondary}},$tertiary;
        }
    }
}

[download]
Was that what you were looking for?

Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg

In Section Seekers of Perl Wisdom