for my $zahl (-7..3, 5..19){
    print $zahl,"\n";
}