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