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;