Select Code to Download

%s1=('a'=>1, 'b'=>1, 'c'=>1);
%s2=('a'=>1, 'c'=>1,        'd'=>1);
...
@j{keys %s2}=1;

print "Union is ", join(",", keys %j), "\n";

%inter=%s1;
@inter{%s2}=0;