my $print_next_line = 0;
open( my $in, "<$Input" ) or die "Kann Datei nicht lesen: $!";
while (<$in>) {
                chomp($_);
                if ( $print_next_line ) {
                    print;
                    $print_next_line = 0;
                }

                for my $i ( 0 .. $#array ) {
                        if ($_ eq $array[$i]){
                                $print_next_line = 1;
                        }
        
                }
        }
        close($in);