foreach my $a sort {$a->[3] <=> $b->[3]} (@Artikel) {
  print "<!-- $a -->\n";
}