opendir(DIR,"test2");
while($datei = readdir(DIR)) 
{ 
	open($IN,'<',"test2/$datei");

$file = $IN;
@entries;

{
	my $measure;
	local $/ = "\nDUT No\n";
	open my $fh, '<', $file or die $!;
	while( my $entry = <$fh> )
	{
		chomp $entry;
		@mms = $entry =~ /Measurement:\s*([\d.]+)/;
		$measure = $mms[0] unless defined $measure;
		if(grep{ $_ == $measure }@mms)
		{
			$entry = "DUT No\n". $entry unless $entry =~ /^DUT No/;
			push @entries, $entry;
		}
	}
}

print $_,"\n" for @entries;
close OUTPUT;

}