use Data::Dump qw(pp);
my @array1=(1..5);
my @array2=(3..7);

my (%union,%intersection,%difference,@tmp);

my (%set1,%set2);
@set1{@array1}=@array1;
@set2{@array2}=@array2;


@tmp= @set1{ keys %set2 };
@intersection{@tmp}=@tmp;     # warning: use of uninitialized values
delete $intersection{""} ;    # dirty hack



%union=(%set1,%set2);


%difference=%union;
delete @difference{keys %intersection};


pp \(%set1,%set2,%union,%intersection,%difference);