my @typen1 = qw/typ11 type12 type13/;
my @typen2 = qw/typ21 type22 type23/;
my @alle = (\@typen1,\@typen2);
print $alle[0]->[2];
use Data::Dumper;
print Dumper \@alle;

my @alle = (
            [qw/typ11 typ12 typ13/],
            [qw/typ21 typ22 typ23/]
            );
print $alle[0]->[2];
use Data::Dumper;
print Dumper \@alle;

my %alle = (
            "typen1"=>[qw/typ11 typ12 typ13/],
            "typen2"=>[qw/typ21 typ22 typ23/]
            );
print $alle{typen1}->[1];
use Data::Dumper;
print \%alle;