@intersection = @difference = ();
%count = ();
foreach $element (@a, @b) { $count{$element}++ }
foreach $element (keys %count)
{
  push @{ $count{$element} > 1 ? \@intersection : \@difference }, $element;
}
foreach (@difference)
{
 print $_."--";
}