# Datei in @files suchen
	foreach $_ (@files)
	{
	$AttachentFile = (split /\./, $_)[0];
	grep /$AttachentFile/i, @files;
	}