foreach $filename1 (@sourcesorted) {
	%hashsource = ($filename1,$filename1);
}