Select Code to Download

#!/usr/bin/perl -w
use strict;
...
3 occured 2 times
2 occured 1 times
union=4 1 3 2; intersection=1 3; difference=4 2