my @categories_to_print;
foreach my $line ( @categories ) {
   my ( $art, $marke, $modell ) = split ":", $line;
   push (@categories_to_print, [$art, $marke, $modell] );
}