field @beispiel;
for $i (@beispiel) {
    print "$i\n";
}