my @Artikel_sorted = sort {
  $a->[3] cmp $b->[3]
} @Artikel;

print "<!---\n";
print "@{$_}\n" for @Artikel_sorted;
print "-->\n";