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