my @array = qw (foo bar qux);

##</code><code>##


my $VAR1 = { 
             'foo' => { 'foo' => [],
                        'bar' => [],
                        'qux' => [] },
             'bar' => { 'foo' => [],
                        'bar' => [],
                        'qux' => [] },
             'qux' => { 'foo' => [],
                        'bar' => [],
                        'qux' => [] },
};