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);