open( IN, "<$Input" );
while (<IN>) {
		chomp($_);
		for my $i ( 0 .. $#array ) {
			if ($_ eq $array[$i]){
				print # eine Zeile nach $_ printen???
			}
	
		}
	}
	close(IN);