This:

%set2 = ( %set2, %set1 );
[download]

does it in one swell foop. Check perlfaq for other set operations.

After Compline,
Zaxo