Select Code to Download

@a=(0,1,0,1,0,0,0,1);
@b=(0,0,1,1,0,0,0,0);

@intersection = @difference = ();
%count = ();
foreach $element (@a, @b) { $count{$element}++ }
...
{
 print $_."--";
}