foreach my $a sort {$a->[0] <=> $b->[0]} 
              map {unshift @$_, $_->[3]; $_->[0] =~ s/,/./}(@Artikel) {
  print "<!-- $a -->\n";
}