my $is_prime = 1;
for my $p (@prime) {
    if ($Zahl % $p == ){
        $is_prime = 0;
        last;
    }
}