foreach my $a (@Artikel) {
  print "<!-- $a -->\n";
}