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

##</code><code>##

my %hashsource;
@hashsource{@sourcesorted} = @sourcesorted;