in reply to union, intersection, and difference
it's equivalent to
push @{ if( $count{$element} > 1 ) { \@intersection; } else { \@difference; } }, $element; [download]
~Particle *accelerates*