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