Select Code to Download

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

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